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?^-r®#^^'7^'v ^ < X"T# § C £ 

J5m^St>iiX'itfil\ Vlt7)V7h 
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m^ - i^Sc^x h 'J ^-X^x h ^) 
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SCA. SCB.SCC;b^gitiS^(ZO(t'o 

tfz. C(7)U:^ h(iSCREEN8H 

^^Xoizt£^^:, 




Pl-1 : P$="t20a'vl5o7l 

SETPAGR P0.P1 
:_DCOPY(0,0)-(255,211 



1HIS0 ' VIDEO DIGITIZING UTILITY for HBl- 

VI SCREEN 8^12: By NYAO : 1989/12/14 

IBltS ' Change variable ' SC for another 

screen mode. (Or i gi nal -SCRRRN8) 
1IS2IS ' 
1030 ■ 

1040 ON ERROR GOTO 1260 

1050 GOSUB 1200 

1060 SC=8 : P0=0 : 

32c" : SCREEN SC : 

1070 _MD(0,0. 0,0,0) 

) TO (0,0) -.GOSUB 1180 

1080 A$=INKEVS : IF A$=" " THEN 1070 

1090 IF INSTRC'eKqQ" , A$)<>0 THF,N END 

1100 Pi.AY P$ : COPY (0,0)- (255.211) . P0 T 

(0.0). PI 

1110 AS=INPUT$(1) : IF ! NSTR (" sS" , A$) =0 

THEN 1070 

1120 BSAVE"temp$$$$. scr" , 0. &HD3FF, S 

1130 SCREEN : FILES " *. sc" +HRX$ (SC) : 

PRINT 

1140 PRINT "FILE NAME (. SC" ; HEX$ (SC) ; " ) 

li50 INPUT F$ : NAME " temp$$$$. scr" AS F 

$ + " . sc"+-HEX$(SC) 

1160 PRINT "Completed." : GOSUB 1200 : G 

OTO 1060 

1170 ' SWAP DISPLAY/ACTIVE PAGE 

1180 SWAP P0,P1 : SRTPAGE P0, PI : PUT SP 

RITE 0, (0,216) : RETURN 

1190 ■ CHECK DISK 

1200 NN=INT(DSKF(1)/54.271) 

1210 IF NN.>-1 THEN PRINT" You can take mo 

re " ; NN ; " picture (s) in this disk." 

1220 IF NN<.1 THEN PRINT"Yoi]r disk may be 
no more space for saving data." 

1230 PRINT "~- MORE --" ; : A$=iNPUT$(l) 

: IF INSTR("eEqQ". A$}<>0 THEN END 

1240 RETURN 

1250 ' ERROR TRAP 

IF ERL=1130 THEN RESUME 1140 

IF ERR=19 THEN RESUME 1070 

IF ERR=68 THEN SCREEN : PRINT "Di 

sk write protected!" : RESUME 1060 

1290 IF ERR=66 THEN K ! LL" temp$$$$. scr" : 
SCREEN : PRINT "Disk full!" : END 

1300 IF ERR=70 THEN SCREEN : PRINT "Di 

sk offline!" : RESUME 1060 

1310 SCREEN : PRINT"ERROR 

INE " :ERL : END 
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4-t; ^-V K-y^^4-^-A^ 
- 1 Lfz^iWd:f~Ar^ ;^^(J. 

EiSf -5 J: -9 'd.-ROM:^!- h U -y v 
(7)y-Ati. %%(C 1 /t:tv.^T/-- 
^-^ T'^^ L X U < CO/; 1 1\ 

-■> 3 >^M^^^ntzy—L.<D± 
^f}\ «^i:iiAT'U6, "V7h 

-ti-^ J; " i: L ^ T JB^#co =1 y > h 

? ib[I(JBASIC=fgT'=l> h n-JU 
"f l)/c«^C0^i^>|g-+f7"jL'— ?^> 




DUNGEON HUNTER 



-ro^ut,, mm(K)Tmzm.m 

Sfc, Z©-y-A(3MSXlffl 




• ?S;ft U^-^^ \'^ h 



T«im/; 



i-3~A;/d:v:7S=bFja^if !-i 



• SFBAS^-iit^^-t-ST-^-l' >t'-ti-y:^'( -iti., ■h-ti'-}±^i^i.z'^hixXy^i,A,tz^ 



©V7K^4^':/i'UIStoiAA,r; 
^q3©^-A©liS= »:$:«[:: 




MSX4007J^3?* 



97 



r 




s^9>^^^^ - 




■ 



i":yst:i- ! 



^'v ; >^> Lf- v-f :? □ + -v t' 





• fc'i'Lj VY? p:?:-f t'Xn "77■1':^ 



^m 98 ^eSict). 



7!)Scu^J:-^(-t)LTS-ti-^J 
t)\ hJ--^t: W:^\-tz'D tzX-tU. 










lis -MUSIC 

20 PLAY#2, "T12iJ©2V1304" , " T12£fe33V1303" 

30 PLAY#2. "C2" . "C2" 

40 PLAY#2. "L16V11CV9CVSCV5C." . " k4" 



n-, y'i7:f£t:^t^[1hn^fz 

[^Mlxi'^^KX't-. t(nht\z 
^th\.x.\-iz':><nn\:'^^^t 

t. ^^-t)'tl-t)-r>X^^^^^lZ 

izm-^fzPSG(D^^M.t^^t:. L^ 
PSGTffi=fJ]l::■^^^i: L/i^^-T 

(r>y-i-\-x-m^muxi.r^j 



i^nhh^)t^^0Z'^^-^tLfz. 



^ 



\\^^^A 9 h 



^ 



$^(Z)7r7^ 



^1 > d 



J^ 



b 



MUSIC NO KOKORO 



RPG=i:/XS-^-^i/3>*;/-JUDante 



■tt>^Jl/ffl(BGM23^ 



1 -MUSlCd.jff, 1. 1, 1, 1, 1. 1) :G0T01M 

2 PLAY#2.A$(0) , A$(l) . A$(2) , A$(3) . A$ (4) ,A 
$(5) ,A${6) :RETURN 

AS (0) -"T120'e47V15O5L8Q6 

A$(l)-"T120e 2V1104LS 

AS (2) ="T120eiifVllO4L8 

AS (3) -"T120ei6V10O4L8 

AS (4 } - " T 1 2m 1 6 V 1 203L8Q4 

A$(5)="T120e33ViarO2LSQ4 

A$(b)-"T12j0fV15eA0 

G0SUB2 

AS (0) ="G+4F+4G+4A+B4>C+4<A+4F+4R8 

AS(l)-"G+lFf2D+4A+4 

AS(2)="L4Dl-DfD+D+8C+S DfD+D+D+8C.fS 

AS(5)-"G+FfDfF + GtFfDtBB>C+0KA+A+F + F 



110 

12if 

130 

140 

150 

IfajB" 

190 

2i)f0 

21i)' 

220 

250 

fAf 

2b0 A$ (6) -" B4S IMB4B4S !MB8S IMB8B4S IMB4B4S 

!MB4 

290 G0SUB2:G0SUB2: "GOTO 290 

300 A${0)-"Q8>Df2R8<BG+B>C + 2. <R4 

310 A$(l)="D+lFfl 

320 A$(2)=" 

330 A$(3)="RlR8D+F+G+A+4GfF+ 

340 A$ (4) -'■ " : ' Gf F+D+-F+G + Ff D+F + BA+A+A+Ff F 

+ G + A + 

350 AS(5)="G + FfDfF + G + F + D + F-i-BAFA + A + F + F + G + 

A + 

390 

400 

410 

430 

490 

500 

510 

530 

590 

600 

bl0 

630 

690 

700 

710 

720 



G0SUB2 

AS {0> =" B4R8G+R8B>C+<BA+2. R4 

A$(1)-"G+1F+1 

A$(3)-"G+lDt2C+4F+4 

G0SUB2 

A$(0)-' 

A$(l)-' 

A${3)-' 

G0SUB2 

A$(0)=' 

A$(l)=' 



>D+2RS<BG + B>C + 2. <R4 

DtlF+1 

Di-lRSDfFfG + A + 4G + F + 



B4R8A+R8F+G+A+G+2. R4 
G+lD+2C.+4<A+4> 
A$(3)-"G+lD+2C+4<Af4> 
G0SUB2 

AS (0) =" Q8V13Ff2R8F+G+AFG+2R2 
AS (1 ) =" e23V8>F+2R8F+G+A+G+2R2< 
A$(2)-"L8824Q4V6G+F+G+F+G+F+G+F+G+F+ 

G+FfG+FfG+F+ 

730 AS(3)="V12D+2C+4D+4G+1 

740 AS(4}="G+FfDi-F+G+F-i-D+F + BA+A+A+F + F+G+ 

A+ 

790 FORI =0TO2:GOSUB2: NEXT 

820 AS(2)="G+F+GfFfG+F+GfF+G+l 

840 A$(4)="G-t-F4-D+F+G+F+DfF+Gfl 

850 AS(5)="G+FfD+F+G+F+D+F+G+l 

860 AS (6) =" B4S ! MB4B4S ! MB8S ! MB8C ! MB2 

890 GOSUB2:GOTO100 



RPG=I>ZS^^i/3::/^;/-;UDante 



1t>^Jl/K(BGM21 



1 _MUSIC(1,0. 1.1,1,1.1,1) :GOTO100 

2 PLAY#2, A$(0) .A$(l) , AS (2) , A$(3) , A$ (4) .A 
${5) , A$(6) : RETURN 

100 A$(0)="T120e 3V10O5L8 

110 A$(l)="T120ei0V 804L8 

120 A$(2)-"T120ei6V10O4L8 

130 A${3)-"T1208 2V10O4L8 

140 AS(4)="T1208 2V 805L8 

150 A$(5)="T120§33V11O3L8 

160 AS(6)-"T120V 3eA0 

190 G0SUB2 

200 AS(0)="DEF2.E3.G6.F2. 1)3. 

210 A$(1)-"FGAA-|-AFGAG2R8DGFEDEFD 

220 A${2)="R8R2FGAG4.R2.DEFD4. 

250 AS(5)="R4D2.E2. F2. D3. 

290 G0SL1B2 

300 A$(0)-"DEF2.E3.G6. F2.R3. 

310 AS(1)-"FGAA+AFGAG2RSDGFEDEFD 

320 AS(2}-"R8R2FGAG4.R2. DEFD4 

350 AS(5)="R4D2.E2.F2. D3. 

390 C0SUB2 

400 AS{0)="FGA2.>C2. <A+4A4G4A2DEF2. E2G4F 

2. D4R4. 

410 A$(1)="FGAGFEFGAGFEFGAGFEFGAGFEFGAGF 

EFGAGFEFGAGFED4R4R4. 

420 AS (2) =" R4FGAGFEFGAGFEFGAGFEFGAGFEFGA 

GFEFGAGFEFGAGFED4R4. 

430 A$(3)-"R4A2.G2. A2. >C2. <A2. >D2C4<A2. R 

2R8 

440 AS(4)-"FGA2.>C2. <A+4A4G4A2DEF2. E2G4F 

2. D4R4. 

450 AS (5) =" R4D2. E2. F2. E2. D2. E2. F2. D4R4. 

490 G0SUB2:G0SUB2:G0T0 100 



# 



4) 



r 



,503>fXh* 



OT=i >x;^ V: t L.mz'.zmWU 




xl 07-24 

m^iB;iixm«LU6-ii-i 









mmm^ 









ff 



/ m' 



i(Dzz^ 99 



•^ip^vh DE ^ 





s0§b: 



iim 



^^. mmn. t^jiy. ^v'^-t-. ^n 












• ^■p 7 I- f;ltT-L^^4i7)li-1'1'/c't i-'T , Jllrtft±- 



[JilF*g] tif£A.x-t. ±m^^^ 

[Hit] ^cf>^^(;)^-=l^^^l^ 
[Jlirt] L^^^-^TZtlA. A 

t. M:mzthnTLt'^fzi)t- 



[MM] ttiit'tiX'tU. x-h. 
[Hit] ?x. ^±ij;it>^^p^<7j 



JIII^$E£^^! 




Mzt)-h. h^i3'tlzn^0^lzu 

^f}-^£-_ MSXt,?#^XSrJ:. V 
-— (7)?r 1 ^. /\°V=l>ii1f(7)|| 
%^Xi^-ofzA.Xrtl\ 1200bps(7)^ 

b'1-^^ h^-^Xl^S Ltztl^hi^, 
tnmzLt-3mft'm(DZ^X't. 

[Mm] m^j}^'hmmA--y ^t l 

XXtf)'? 

Vm] ^TX'f^o IS^^r^'J 

fi<X. ^--y h?-i(Si^^-^X'T„ 

ioXii>?d:uX'1-J:ta„ 



it*) # '^cr y-->T'^(tm'inx 



—>3>(Dmti^'>^i:ti''^fzi)o IS 

#fct^«Aran-r*^'b. ft'J:^ 

^^X1Slzfi^zt;b^fe-7/cib 

tl-^^X^^^h. YAS-NETtJ, te 
s^fz^X'1-J:o 

[Hit] mmzmt^mmxii. 
[jiirt] *@¥/)^t"csxa^5S(iiS 

fe ^W;ol^Xt^^fIL. ^^ 

/zt>(J jriXwoXt, fcU;!)^ 

L/zib. ;$;Acoct^^t)Ln^J:L^„ 

^TUTsrpi(zs=tLx, -mmti: 

J' K/N''r7.L^^XS4-t.^(7)(i, a 






'^L^X^.^-SfcCOX- J 

t°zL-:S'JU-A;b^bX'TL^ib L^:;, 

3.-$'c7)^;gc7)ztx-r. 

^jx'j'ri^ti^ti'^t. txh 
mL\.'Z'mmx't. 

(Dmi~^-'^o-)X'tt)'j 
Bt'j:AXUTC7)(i+f7X"Lfctaa 



X^-^Xul)^:. tXfcSi^^'JS 
itz^iJBfzti-^^^tzti'hz^. 

^m:mm%(7y\mitz['r(D:^- -y i^ f= 



100 ^5 



EiSOT-?^-V ■/ hDE?'— I- 



YAS-NE.T(Dm^<t.m^ 



YAS-NET, m.^i~l.tAmMi^^£^) 



■y-b-vllJllrt5fe^ff5A^A<tliT 

YAS-NET 
a : 03-943-9800 
Mit^<^^~9 :N81XN 
¥7.1- \D: TTTTTTT 

m^/-;b#f-: #00(SYS-OP) 




^jv. „. ^,„ „,/12/25 81:22 244 RE 
^i- i^^.?*t»A' 89/12/24 23:63 r- - 
1539. S>K 89/12/24 22:35 ; 



oTl^at 



1524. S>H 89/12/23 14:16 94 mm 

1484. -rs^-iA, r - - 

1483. NOG 1 

1432. ,j;-fc/i, 1 

1481. HOS 89/12/«l 23:49 683 RE: RE; 

1488. ,5^-fc/t. 89/12/fll 21:55 716 RE : 



89/12/ffi 15:17 4a A:^3(D 

89/12/g 94:33 182 

89/12/^ 68:26 849 r 

89/12/81 23:49 683 RE:RE: 



}1IS'f>F3 28 89/11/3614:48 5186 

JiJJ-lMLsT 89/114612:48 229 

1475. ;, „.. 

1474. ,T.-1tfu 1 



3}Jli;g,iggr^**^^^* 



2x-mr>h- 89/11/26 



;*7-A.Tinfi:^* 



*YAS-NETff)m^^^^. 110Klffiff3a^-i'.fl-l.>?'f h ;^7b'3fe^-C■L*iT = 



[iliF^] t^Xti^.fzfy-hJf< 
tl^^Wr>Xi>(D[i. S-S^tT^fgX 

fffflX^^fJg#^C^£U. ?#ib 
':i:?L\ oXct'-^-AX'TJ;. -^ 

^LXfeiioZ-'H^^L^^X'SS 

M^JzifX'^£<. nrfjXhmL^^ 

hLi\ zibhizm^smu^Lx 

<-5Afc#l^Xt-J:. ^tJU. E 
j:3M32(75AC(S. ^-SctTXl-ta. 

[Mm] :^^mmxit3mmn'^ 
X 3mmf£A.xi-^''tr.iit^ 
[jiirt] x.^. tnit^'S.(Dmm 

mn-itLx ^:6^4■L^^,m^^X- 
r. — H(-50A<;^fi^LTt>. u 
t 'Jff)E#?^i:c7)B#w-^XP^'i 

nx#s-r=t:fao n^ii. tnu 
±am^fi^^^^t>[ix'tt''^, IS 

tt\ 'toT^t^lzfji'^Xh. " 
[KS] Xfe. $t^ff)ii-^, mil 



[jiirt] io[3]s*xT„ 

[^ii] vT-Tt-^^^oXL^b^ 

L^^:b(tx-rj;^ 

[Jl|F*3] ^TX'-rta. ou::cor^1 

$Xf@,S.SBX'L/;^. *<C7)fl-f5 
■^< m^i-^X, 1 :ij^^< ^U 

?b^b3!:^l-^nxta. X\ St'z* 

fzMz\.^U^X'tt\^ 

[^ii] l^^lC'^jT-SZtoX^-S 

XL J: 0^^ 

[)\m] ^'J^, u^(;'i:US-r 
J:, ^mhrz'im^z$fz(T)\.t. 
^icii^Sfcx-^lj^ U/cf^.^^^K 

-^tt§*^^ffitX</i?Uj o 
XL^^y-y-tz— >^j:AX-r, ff, 
*S^:^f^?rl,-:?lt-&5fe^"'J:^X 
^^'j.-l^L. ^n^!iEBJLX<fc'? 
v.\ 'J:^X^JrJ:ri:'J:^X•■r„ 
S^tnjDM^^/ilttfUX, ttiX^f 
oXLi^o ;$:AC£^X(i. ;t: 

'j#'.^XL^(t[iX^L\OT(c. -r':=^ h 

'^f£\.-t^^£-^xm~^^ttL. n^n 



[Kii] Are^^^x^b^^. nti 

t^i^Zh. %^(n%^^'ibXt^Mz 
^-y h^^--5^TX3%fcML^X 
■&^ttX--rj:tao -tut::;:^ 

X, 7f.~>>^^Tx-[t^£i. i±m 

X'T*^' 

[Jlll^] 9-^[J^>?250HtoX 

ti^^^t^.r>xtto znt^n^. 

^■fRt-^X, L-^J^^U L/-IM0 
^g|ii;l-LXLSo/;'b. Z^^J:[I 
A;:)=*S'i'^j:;^^-:;/ci:,mL^J1-J;, 

(D^^^^mzLX^-^^fz^-'Xt. 



mti^^z±m'^f£Ms^X'[ti±mzt£ 
'i-mJ#*^x*f=§t;;s;S[-(i^ u s 

oXS^tjU. CO-a-ibnf::-oX^ 

[Jl|[^] ^^-KtiSCiO'^c^tfo. 
XL^^.^^,f,-5^XTct*g, ^-y h 
^^xt-3 Mf^xfcitfuxfoi^S: 

/i*.Xt. ?SXt, f5I/)^l-o/;'b. 
^nXUUi;S-oXST, 




m^'^-y t-DE5^'- f- 101 



..^. 



NFORMATiON 






• • ■ 



IS ^JV^WWJWA 






nfz. 

■ti-'5>K(i"ii:'D"*-^-St:! 




^r^ 



PHONE v-^" -v ^ t RCA t'>v-Y' 
■y ^(7) 2 ^I^A:*] ^*l^i)cL, MSX 

K->^xA(2^§S 






102 INFORMATION 



(T^SS'J^it^AnC'ffi;^. v:^-m 
'■T.^vT'A-t-y Vi it. =7<f\i 

LTi|'L=l"A(75/1^- 

}^^mt\.x^-u 

frX'^ -So 

^yV-rv^'-tz-y hj 
(i, 7^'t:"— tT^a- 
ju+'y^^tTJT'U'f ^ 

— JU^>t; ■>-v— 7° 




• ;^?-:;7-A-t;'v K 2000R[fiiSll], 




-tzvb^;^', ]000R[ia3l)]= f=1BD3-B46-Z977 



l7j^»(Z)»i0|i(iilS:tJflt)?Jj:a)^<i; 

^:,}iitlU 

^TlvoACjjT. 
7. ^ C7)if KS,^^^^ 

W«3£,- ^50R[«slJ]■g;[«s)77?^:^:5^«fi03-835-453o L^:'5"^'L.-I£L ■^=c^.\T■■ 










INFORMATJoN 



VAVAVAF TOY& 



GAME ^^ ^ V^^^ 



(;j*)c7)PUZZLE' CITYvU 








t^ „ 



Ufl>3a ■y?!B, 1300n[^l|]. ®B03- 861 -6361 



Mil:?] ^lEfS L T3BA ^l?# it 



n /c 7 2^(7) ;*:->•■ COT ^. 

J-;b-K) c75Ai|^?r 
-f > h (i. ^S^, mil. 

:t :'5 ^" i: L^o /-I. i--^ ^jrixlt 
;b ^ 'i- =1 ;^ 5^ a - A T-JS^b^nst? 



X^ZL- 



its^aff/uTEcrsfiJ^iiiiUcfca 







itm^^llS-ft-jXtt ! igSDn^fftgllJ. 3)003-847-511'!, 
x-f— >X< vi-— t7)PB^T''.''S, 



L^?)t7>fZo 

m^wmzMitz 



-kKt^hM^tX\ m 

$nfz. 




V^'^fl'M^tKTitz . 1800n"lsJSI|" Itlin03 






-802-5531 




INFORMATION 103 



mmm^^mi^mmi 




^*;iWE • ?^^oWl*j Tim ^ nr 

•S^4'/2781R[Sia] 







►^ffi^'/aoosp^LSiiAi 



■y-ii79'r7'7it— rx 



if-^9-r7;K-^X 



/\°5'S''rx--y--:^7. 



3^5':J<?"^^h 




tz -r^'}^ o^mm^tzfy\ zcnn 

I'l^Ztfz. X\ Z(D-*f • :^ 1 -( T 
7n-'( Xlt 5 ^miz^tl&$tifz 6 A 




Til 7 > • xn. T >(7>;t IJ ■>t'-;u ■ 
j^>^<-tz-^fzti^O^^)lZli. +t- 

=i-;^7^-< v:?^t7> \~'fzr>fz(r)X 



LOVE SONG COLLECTION -WOMEN- 




W^F'MW 



W^'S|5*^THE TIMERST-fiUT-U 
T}\^y<A^^}^$-\tXl''tz(7)tz'Dtz, 

TU-gjo i;-^(i7'^U?]>7:t-^ 

• 2^21B^W3000P3[*ffiil 



104 INFORMATION 



INFORMATJoN 



IJli^-fTT^ 



VIDEO W% 




i: 7 < ^ >..: ;^U i ^ < t'x^'f t 
1 1 fzhht^-o fz 'J ym(7)n^(r) 



1^ (z^-y- § =1 ^-^ u -(TD^fiti^flf 

• RCA 3 Q > b'7 

• 113*. l?f5300P3[etSiJ] 




373'SU-f2>;i?.7> 



^hmz<r)fz!^izm^izt£:bhA 




• aSJ7 7+^'fi'5',411^S:"¥3i-^-' 



-oX. t^i)-'oX\.-^fz{lot^m^^h 

miznihtix. ^miz±$x^ 
$x.z(D^yT 

^aXitS)^<DX"r 
i^\ mmtzii. m 





7:)Hi:/-;7^^ A- 

□ - L*^U. 

i co^^lt^S^^ L /z V > :^]■c7) (J , 

[^9?^ fz(n[tX L .i- U ^ i^u ^ n 
-5^l7>=iV ! /\'-y hvXicn 

>, ^I'v h • ^— ^>. -)-'/=> 
— tL^T®'^^ ::(;)^c7>^'-— 5 > 

Sf^tt(-ftbnTL^-S)Cofz. 
^m^mzmtiitxi^iifzo 

Lfy-U mx-^WtitzJ:ofA:A 
±^^i::zt{zo>'^')LtzTy 
A[J, 4IXvx->-(Z. &-&. '^t' 

it^zi:lztj:^<DX'T. 



mz-\±t^x(7)mw^^iz -v\' 

AX-Qf-i:, Cc7)#ftt?[-A5?lV 

5?iDm^n-5if y fz -o T 5/ s-^ 
itnx L J o /zlg(z(3:5j;(cifflS!i 

h^x$mJLmx'. =iyT-v-^L 

T120/\°— tr> \-^Lst>^t)^h ! 

• CBS/FOX, B:$:X'f 7'-r •>- 

• 105*, i:^5700H:^3iJ] 

• S5r4^ 




^^-l 







-> 1-- ---JL-/ ■> h 



-jXtl'd^^O^Ztfy o BS^iS^ 

izf£^tm^^it. 



INFORMATION 105 



VANSWWiW 



M^yo-A>y^^± 



:<# • 



S WPAVAVAV 



h7sZ\y 



5iS ^ 



■^--T'fj-fri^'d.-c^^^' ^x^>^'. 71-7'- 



S53>^l/-A7.^-2 



3=i'oiaiE»55taas^, :oi siaeaj' 



BfRAI 






lih m^ 



COm^X\ ht7< ¥Jl'W¥(7)mt.i^tzi)fz 

iiX±-^LXi'^, mt. m<7^i±mti<hnm 
tz. mtm^LtzXt(Dm^(^t^^'Meb^ t 







U^^I'-K-xV-llV 



rJia^nxii. h5 7"JK;)R6&<a^^?-ttb 

U7c?)4^Cf^r|l]V^':^l1'^-";^<^S^^ ^^ 
T^Tti ? $) S U (C^ < xm.<Dmizt^^^\ 
^4:ti^^lt)^l'l^^>i^^^<7)X^^o 



I^B^P/K'^j/KfflJi:*:; 




H30DR.*S52i 



Z(n:^t)^MWz^f]-'nfz<7)ii]8^hm(r)Z 

t. ymDm-^^mzm-r^Mnw^i^tK 

uu-Fti-WiMtLX(nW^^^X.iz^m^[z-h 

fz^^,'^m(nm^^mr>x\.^^(Dm^-^X'hi>, 
'tzizmmt'-mzmwB.^m^fzL. ^-bn 

mmmmWuk^Lx\.^^. 

KGB. CIA, FBk SIS^it'tL^^Sl^^^^Hfe 
^/^°< 'J^fftff57 T >C(i/i J b ''j: < f5 1 L ^ 

t<'tlXl-^=b<7)tztl-'h^ 




l3399Rr^ii] 



NEWS WV-. 




jg-sos-esa-soio 
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ISH.COMT'x+:^ h?F^itCzl>/>"^ 

(iPDSi: LX^S|-r5)Zi:**T-#' 



LHA.COMCDffiUT? 



^>LHA 



'3t77i^l/€ 



lha,com«£^^'j:^Sl^:^(^. 
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/iA\ ARK.COM i:iSo,=5:6\ O 

i:o^^T, mMiZyiML^sltn 

,'l'JU£7)K§i^^. ",LZH"CL''X(t 

mf^h^^''(rytz. mMT^t^ 
buNARC.COM^^T Z i:t<X'^U 



^'(nX\ fl?;m"r-5[;£JLHRD.C0Mj 

7T-l'Jl^^&Mfc^;(tT^*^-5^1 
liZt^fz^iZtz, 

4"f5\ MSXi?3^N°Va>iiff(7)i| 
^Tii. ARK.COM i: UNARC.COM 
t^ S f-' ^ tz±^tztl^ b . ^/A^ft^^fT^ 
^LZH''fc'(tT'i■<. LHA.COM^^* 

mLxi^i,zt^~-m^^>y-i 
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LHRD.COM0D11U73 



A>LHPiD 1M7 Wil/S A: 
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^c RAETERMtJ. "ETl^t-y- U 
V i>^mi7)iiff V7 h fz, MSX2S 
/■-(JMSX2 + [Z?-H;i5LXUTMSX- 
DOS-LTlfiftr^. fzfzL}iMt 

^LT. #MtLxta. jiisrt 

g^ ^ t 'J _ha>^ N'-y 7 z m^l L 

TUT. UOTfe0S''j:t^l=M 

-^ T ^ -S C t ;:)<T # ^ ^ \' -y ^ 7. ^ 

Q-JL'^ig^J^oTU 

S - t /Co 

LT, RAETERM;:)^fi;f 

s?nTfgu^T<':i: 

■^Xl^-Dtztl-^-ll'^ 
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tH7T;^^ilia 
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•SOARER-NET 
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• ?«^)!!!t^Srfi 
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MV^'33^^o;/h 
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;b^\ ^-y h<?>m^£alf^^!! 

^03-486-7913 
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SSW 



■ 8 t'-y h 

AM 

1 

4-L 

4-t 

■ CR<7>^ 
-CR+LF 



tsi^^^ifY^-^i^vymm^ 



Ji;it-y h[J. ^c7>*M^--y hT 

in§*^^^Tti^u(59. ~i 

4-L^i: i-^*^#^LLHtf@^M 
3§LTLSL^^''i3(i4l)IJ-ro fc' 

*L/i.fi;iv:f]-(fj;it~'y hv^^i' 



c7)(Z-r§fc46(Zfc[*l^a);IlvfffE 

^7. h= mtLx. IT0CH[<^(75 

-y h^lfl^. ^n^-n(^^--y hT 
■^C^J;f)/' :: A4!^U«- a -7. 
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»llig-^A.^<B 




i3[si mmiz^i\z%x.^(Dm 






-r^Lti^fi'D/z ^^A.xm^^ 



ttMWz. t^X(n-\2Mz)t)- 
hN(D-^^gX'(Dm^^m-^X 

■ofj:fy<-^-tzh. tiUmC-tJi-o^ 
^^{tzi:Xit^^-in^\.Hf.i)iz 



■izJUti^mi^izfl^-^^i^-oXl^^ 

rtm. n^iz-ofxti^^mtmh 
^s^'X'tt:. 
zcr>^i^<r)htiz, ^>yi^iz 

t'o ? 'nvi:^pB^mXLJ;. 

^ni^Lhd. zti-ox^^mcom 
fztz^t^h^t^h-fsUzxn. 



(7)it. i:-^itm^mmiz\i°-:?iz 

MLX. $ilHtm^~^^J:A.fzJ: 

mi)^i'^'"'-\tmizfj:-^X\.^%>iit 
f£(nfz,._ 
tzhii\ mBsz[t^^ U^'j: 

fz\.^i^^'ik^mur-pt^tiin 

feOy-y ^^nX^.^Ji'L^^fc':0^ 




132 Ax^tH^^<K 




AI»]|g•^^<5<iS 



.i;^^^. fcfc;itJ\ ^:~x<^ 
iitoi3:FtX"jZ'T'^ § c £ ;z t) ^feo 

Xot^iz, ^ttitzlit' 

±AM±.izfz^Ati)^^<rnz^ m 

Xl^^A^fzij-h. cn(3^J:-o£ 
(i, WiiS$fflBSiSA-:>Xt. itz't 



u nm^^£t't<m^x < -5„ ^g 
±ifhnx^'<t>mz, oifj. 

m[zt$'^£^'r>tzh<r)t)\ h^^ 
tnxi-^^tB^^i^'i os'j, 

m.-h%i.-^-^kt}fix\.^t£\.^m^zhfz 

|5ii:ci;(i, f5Ifc^■l3^^(7)^: 

S''j:''S!5^^;£^.n^ - 1 X\ tm < 
JiU'd.-Jtfffl^^'XS ^5epltc7)^J^^ 
i'¥^)±[1X^^^t^hfzhn. 
APb1-5TL^oc7)(J. ^SnT;^^ 

i\[z\,i±^^<nm^'^—^> Y < lb 

ti^^ti-r> fz-ixzt m^mizf^:^ 

><Dm(Dm:^^mmLtzh. y^) 

$[mm'm\:^'^£<x. zo^^ 
'^fz9m%m.^zh^A.[:-^-^£\.^ti\ 

fsKXim^^-hntzUzlti. 
X'h. \^'^[tzti{i.tUz-^^^ 

Wz-otz. f£iff£h. nmma 




\^^'')Tmwf^>^x\.^<,f' 

^t^^<U^A.tzX^. oiU, 
T'Oi'ZL'^ -i XDMt^.-^'XTyl.i. 

m<7ym~-ofzt)iifz, 
znifzmMfii^. feT— Jt. 

/^"■y:? h-7-y:> LiT. 

fti^c+ -^''cC^iA^'f "b n 

mtzi-}izm'^fzztC'i'fA:i\ i: 
L^±^idmmmi&xn. ^^i^ 

tzti.l£^^<ri^'S(DWz'DX. 

osu. ±^!!i<r>mvi tit. m 
^(DWizx-^xm^m'^hn^ t 

^^nztX-hh^/^fzX^ -^ 

^^•^[1-T, rzi)^h. ^momw 
tLxcnm-^^. z^tnzxi 

[z^ni?'yL.^nfzh(nf£<Dt>^h 



r>^mw\zx-^x\'^hn^t\.^i 
mhh^. fzt?L[t. ^ntit'ii 
^nx. ^{m-h^T^)\^f>izt£^ 

fz(r)thh^MH'^^M-^hnx 

±\.--m.^zt<nX'B^^X\ ±i1o. 
t>^^mzt£n{i^'o<nm.Wz^o:> 

±f pjf^B^it;! LTL^ < Aifzi n. 
tmt-^fzht. tiz^k,ti±m 

ht(D±.[Zniz-^£l^X ■) f£ViM<7^ 

xitm^mLxi- <mm^£A.^'h 
L^itji-^. "tox-^i^^mz-ib 
mRi^±^±$. ±m^i'F'DX^^ 
<,ztx\ mLi^x^)mm±m 

mmwz'oxm^(7y^^m.(^x i 

i: IS] UT'JUU'U XAT'{tbn-&. 



HP ^iJ f^ 





<^ ($) (&> 






C nT-^S&i^^^-r -§> - t [1 4- ?) „ 



XA(i. :A:^ir^^:'^muii^T• 




i-ofzTi: 
^. ^ii^^^n^t^ztti^ii-ox 

X\ 1iimiZ'^<Z.t(DX'BfS\-'m 



M A Z E I 



i'^om 



S<*^ gZTH s nfc f> t o® 



t 



I I I 







MAZE2 











yyl^fzo M'fyt^t. MM(7>±. 
(Dlf 1 ^^hTiZ[^i)^'^X^^t)m 
'■ki'¥!^?nXl'<o tzfzL. Z(D 

ifuy-^Mtm^^nm-^iz\i 
x\ u^x-Mh^m^'xm..i''iv- 
'^>[-im.^'-^tnx^^u^\ -fn 

1f^L.\%mzm%(r>h^K\t. ^ 
Xh-^(nh\.^\.^-t±hi . 

iSS&(7)^0tUT-t(Z4--5. 
MAZE2f7)(i-7(J. i^feSS^^'^^T 

X\ :^-VJL-=f-C0JiT£;&T-^ 

^zmt^tx<n^<L. ^m^f^t -5 

Ua. MAZE2(i. MSX'^-Lo 

m^]^^^zti-^XK^^(nx\ ^%-^x 

V.^-5A(J^ ^n^tLlOOO^, 1350 
ft. 1430ftc;)REMV— ^^^Ui 
-l)Ci:T\ J:U;t3(c||ft-r^c 



134 Ax^p«g^^^< 







Aiaig^A.*;<iS 






yn^y^/^o^mm 



....-L.-"■l^-'l.H^-1-,||-'l.--l.||'-^-"'-t-— i-i— i-i-"i,-'-i 



$t IXJ^XW^at^LTU^, 200 
~ 3 J TCOi^:?!^ ^ >yA(Z^ 

2[S^, 3(iTco:^iS](iil-g-f^-5 

210lTti. 2|Sgli'^(i±lIf^*^ 

T; z3(mx-i:r>$iHzmm±iz 



MAZE2(7)(5t(J, 1000~1070if 

<m;iim[:o 1070~1270:ii^^^^f^ 
^(7)y-f >J1^— f^XZ^j:-!), 1280 

tnx-it. t <izS#'j:t -^ 

/;tt?r t'-y ^ T' V y LTiftH^^ L 
Tfi-Oo lOAO-IOSMfTli. i^ 

tcr)i: LX^s^M(iiemUTfi< „ 

■S/iSD/c; l1301fT1J. g-S^JI 

ofz7v:(iiS&)ntHT(i^j:'b':i:i^i: 
v^TJU-jK;)t,fc[z, ^^isn^ 

;^^^'T ;^^(7)^ I -y ^ $r L Ti.^^, 
ll60fTT'(S, n^i^nm-.tz-K^l^ 
'ftLTJi<. 1250-1260<Tti. ^ 



MAZE! (iil'^Oii)L 1ST 



IM DbFlNT A-Z 

llir DIM U(3,31.25),VX(3).VY(3) 

125' VX{U-1:VX(2)=-1:VY(»)=-1:VY{3)=1 

138 PRINT"PUSH SPECE KEY !" 

14^ IF STRiG(iJ)=j& THEN R=RND(1):G0T0 140 

ISIS SCREEN 5:C0L0R 15.4.4 

16j» LINE (7, 7) -(248. 2^1) . 15, B 

170 LINE (7.8)-(7. 15). 4 

180 LINE (248. 193) -(248, 200), 4 

19^ FOR J=2 TO 24:F0R 1=2 TO 30 

200 S=INT(RND{1)*3)+1 

210 IF J = 2 THEN S=S" I NT (RND (1) +. 5) 

220 IF U(S. 1. J) THEN 200 

23tf LiNE(l*8, J*8)-((H-VX(S))*8, (J+VY(S))*8) 

240 U (S XOR 3, I f VX (S) , J +VY (S) ) =1 

250 NEXT 1 , J 

260 IF STRIG(0) THEN STOP ELSE 260 



®0©0^ 



u(s,b.c) mm{h.G)t'^.sijmzm(j^^^u[j^w^-t 

I.J ilS^ii^^COJlM 

vx( ),VY( )^WiSm-tx\^i:m^ti^mmo)nn 



MAZE2(?^i®Dffi)LIST 



1000 '-lURBO ON 

1010 DEFINT A-Z:DEFSNG R 

1020 DIM X(700), Y(700),M(b3.54) 

1030 PRINT "push spece key ! " 

1040 FOR 1-=1 TO b3:M(i, 1)=1 :M(1, 51) = 1:NEXT 1 

1050 FOR 1=1 TO 53:M(1. I)=1:M(61. I)-1;NEXT 1 

1050 IF STRlU(0)-0 THEN R=RND{1):G0T0 1060 

1«70 SCREEN 5:C0LOR 15,4,15:CLS 

1«8H P=0:X1=3:Y1=3:VX=1 :VY=0:R1-. 3 

1090 XX-X1*4:YY = Y1*4:M(X1. Yl)=l 

J 100 P-I'f] :X(P)-X1 :Y(P)-Y1 

1110 LiNE(XX, YY)-(XX+3,YY+3), 15, BF 

11^0 !F RKRNDd) THEN GOSUB 1180 

1130 IF M(X1+VX + VX.YH-VY + VY) THEN 12101 

1 140 X2-X1*4 + VX*4:Y2 ■Y1*4+VY*4 

1150 LINE(X2. Y2)- (X2+3. Y2+3) . 15, BF 

llc.0 MlXUVX. VI +VV)-1 

1170 Xl = XH-VX+-VX:Yl=YlfVY + VY:GOTO 1090 

1180 kk-lNr(SGNlRND(l) -. 5) +. 1) 

1190 VV-VY:VY=VX*VX*RR:VX=VV*VV*RR 

]200 KKIURN 

1210 FOR VX=-1 TO 1:F0R VY=-1 TO 1 

1220 IF VX*VY'.^0 THEN 1240 

1230 IF M(X1+VX + VX. YHVY + VY)=0 THEN 1140 

1240 NEXI VY.VX 

1250 i' = P-l:lF P=0 THEN BEEP : GOTO 1270 

12b0 Xl-X(l') :Y1=Y(P) :GOTO 1210 

1270 LINE (240, 196) - (243. 199), 15. BF 

1280 RESTORE 1410 

1290 B$="":FOfi 1-0 TO 7 : READ A$ 

1300 A-VAH"&H"1-A$) :B$ = B$ + CHR$(A) ;NEXT I 

1310 SPRITES (0)=B$ 

1320 X-3:Y=3 

1330 PUT SPRITE 0, (X*4, Y*4-l ) , 8. 

1340 IF X-59 AND Y-49 THEN 1420 

1350 'FOR 1=0 TO 2000:NEXT I 

13(.« X9-X:Y9-Y:S-ST1CK(0) 

1370 X-Xf (S=7)- (S=3) :Y=Y+ (S=l)- (S-5) 

1380 IF M(X,Y)-0 'IHEN X=X9:Y-Y9 

1390 IF STRIG(0) THEN STOP 

1400 GOTO 1330 

1410 DATA 10. f0. f0. 1-0.0. 0.0,0 

1420 PUI SPRITE 0. I4*b0, 4*49-1) .8,0 

1430 '-TURBO OFF 

1440 Ol'KN ■GkP:'" AS tf 1 : PSET (48. 100) 

1450 PRINT #l,"fc^l'^f Lit*' ? (Y/N)" 

1400 CLOSE 

1470 A$=iNKEY$ 

1480 IF A$="Y" OR A$="y" THEN 1000 

1490 IF A$="N" OR A$-"n" THEN END 

1500 GOTO 1470 

1510 LINE(8, 12)-(12, 15) . 15.BF 

1520 LINE (240. 19b) -(244, 199) , 15. BF 
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U, ^■^■o/-x~$'^BASICCODATA 






■>7i- + C(c) 



•>7h + E(e' 



:^77< h7=--?^S:&S$Er^ = 



;^7'7-r h7=-?&_tTSfi-rs. 



iJ: 7 -##^llB#i;;fii?)-5.. 



:^7-»^^iffiCiS«5S-. 



^^y^-f t-; 



7.75' -< h#^^i£l-E*?i 



:*]— VJt' 



•>7 f-+:^— VJL. 



;',^— ;*. 



:^7vi' t-T--?5-f^^Bi^i-:at- 



T--??:f'pmii±iW-'b7,7^-< M::3t-, 



-f'FmW^ ^ ^g^ L /r A -7 -T-iis^ ?. .. 



^'SmL./iT^'-? ^t-T'T^ic 



f^*L,f-5^'-5'^a-K-r5.. 



■r— ? ^BASICc?)DATA:^i:-b-7', 



+^?1 W<7) :»] - V Ji. ?: ^KT 5 . 



f^^lM(7)f=--?^->7 hfa 







C0(i, ''t?— ^(?);^7°7-r hIT■'-1• 
iEES^:^iS'S(3iS]J:i, ip^T, iff 
■^ t'i%\z-tL-o(DX\ £<tz;^7°7 

^'OUhX-^LX^Z^ti, 

yai7'7A^RUNT^£. M® 
CI 6 X 16(7)?;^ g ^^^^ n-g>. 
zztH'mm^fz. ^M.LXi^^ 
-7:^ti^t^-y)VitMX\ ti-yji' 

T'S-S^; tLX^^-:^^-^ 
^?Tt, :&Jic7iCOLORi:i.\TSiJ5^ 

=¥~^WLfza) ti-V}\^^m 
K-y t-fc>l'LXtult§. 



#■i■^^tX^'^it^T'(±i;lT) u 



■^^mxu, zntitm^(r>mB^ 

t^<r)Xi±MLXU). 
^p.zf'7'< \~lt. m:$imzMSX(r) 

'7-<>t]^ — Z-il. OiU^||l7 

oc-^s ifeL^^afex-^'j.-u 
x-m^j-os^'^rmmm^-. ®® 

L^rj tJ°L^c7):^ i' 7 ^ :>' — ^-ftS i: 
§^j:t; sr^^^^'J-^-i^LX 
ti'h F-y h^i^LXU-^fztio*^ 

::' ^-^^'FoXl^^it^'-CTl^^- 
.i:$nxL Jt(7)x;£.wlj: ^. 
x;^'^XLS9C0(j. :^j:*^ni:^^^^ 
+ -V 7 i' ^ -(7)T-- ? ^:S;&(i 

-ft. ±Tyj\^izmit^ztf}^ 
f4:t^hti-yji'^-^i^tztx\ 

^^ ||pg[;^-oXt'b;l[j; J: < 
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yw5^>^^sm 



< h #-§-^^'^^ $tltztZ^X\ 

tA,f£tBli. m^-Uz\--:^^^ 
ZtifX'^^UU tzfzLZol 

fzm^fG\^{E^£t'(7)^-u. mi^ 
[= 4- s ^o tnt X'<Dmmi)'^n x. . 

CsbXi^-otzm^U. n<n-7T^ 

ft^(rsX\ f^#L/-=l-^7T-rJU^ 
LX^^-5e ^;t^(i; "TEsri: 
77'f;L'T-*5.-'TEST.SPD"t. 7. 

::rT-t-7"Lfc7^-5'l3. [L]+ 



-^tf-T- t T'D- K^- K(-A 

J: l^J: BASICc;)DATA:S:(:: LT.^J: 
-KIIAU, DATA:S:CLfcL^:^7° 

T''*0\ 'K=i-77=-'?*T''3"tA 

;:5;(C-tZ-yi- S 7 T -f Jl/^ ?:^1 
L^T<-S)mT-A:^LJ:'5 (C(7)t 

(7)T\ 13^^tA:']T■Sfc'b[Y]. 

■< 7^'^t'm^^Xi)-'h BEEP^^^nl-:! 
tzh. T'-5'fF^^T/io 7t< 

-i'X^JilZ[J'TEST.ASC"i:>-^T7 
T'<}\'t)^^tlX\.^hy\7:tz^ 
Zc7)x-^ 7 7 -l';i'tiBASiC(7> 

DATA:S:?f^5tx\ ioooo^T?b^'iy;^ 

X. ^n(CC<7)TEST.ASC^-:J(rtP 

MERGE" TEST. ASC" 
tz\^> K^-r >X-A:^jTtL(^\.^ 
L^*^o ^cy-c>5tWLX[5LL^c7)(J, 

f X-Xil^;b^X>.^''c^:<X(Sl^(t'J: 
t)^hr>fzh. RENUM(lJ:^>^^'-) 
LX;^^'bMERGETSi:Ui.^ 

5x. m*ct-'— :?7 7"rjL'?:j^ 

GOSUB 10000 

^m=iLXi. ZHX\ Bmmi.z 

^y^-r h#-§-o#?:j^b^7°7'r 

<n-5^NXfr„ 

^y^i* h^rBASICXL^^L^^D 



yxi^^^i^m^mfiwz^^ 



(J. BASICtV>'>S<7)2-^(?57'n 

4'^TLi?(+ir. 3-r[i'Jxh2 
«-A*LX5l?fLX*J:9o iKB^ 

S-AAL. *SPE2.0BJ''tls]UT-'-f 

:^ ^ ic-fe - ytnti'X- ^ **-' (J tz<. 
^S■f^fi£tsie*X(i4■L^(7)x^ < 

U 'j X h 1 (7)*V ^ I- ^I^B^T 5 ^'o 
i-r60*T-120ff*X-A'--, -i-Z^^ 

^T. 290^— 350?fax^V-f WU 
-y= 360^f~390frT-X'<~;^+- 
CO^alS«^LXL^X. 400fr-410fi^(i 

420W3-':^±<7)i3'7-WT^X\ 430ff 




j!)'*T<7);^7'7'f his*. ^LXIfi 
< 440^X':fc&5lE. 450^-'±TS 

^o 5^0fr^70ftX-x-^^7)-b-7'^ 
580fT— 640f7X'T-^n-h\ 650 
B~S90fi^X-T-'- 5'fFSE. 9 1 Ofi^-940 
^X'x^-iaS^LTl^So 
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10 ' 

2j& ' Sprite Editor UV2 
30 ' 1989 Dec 

40 ' Copyright (C) 1990 ASCII Corp. 
50 ■ 

60 CLEAR 1500,&HBFFF:MAXFILES=2:SCREEN 5 
,2:SET PAGE 2. 2:CLS :COLOR 15, 4. 0:OPEN"gr 
p:"AS #1:DIM C$ (63) :DEFiNT A-Z: SA=&HC000 
:CA=&HC100:SN=&HC1F3:ON ERROR GOTO 910 
70 FOR 1=0 TO 63:C$(!)=STRING$(16,0) :NEX 
T I :BL0AD"SPE2.0BJ" 

80 DBF USR1=&HC200:DEF USR2=&HC203:DEF U 
SR3=&HC206:DEF USR4=&HC209 :DEF USR5=&HC2 
0C:DEF USR6=&HC20F:DEF USR7=ftHC212:DEF U 
SR8=&HC215:DEF USR9=&HC218;DEF USR0=&HC2 
IB 

90 FOR 1=0 TO 271: POKE SA+ 1.0: NEXT 
100 SET PAGE ,1:F0R 1=0 TO 15 :LINE ( 1*8, 
)-(I*8t8,8) , 15,B:L1NE(]*8+1, 1)- (1*8+7. 7) 
, 1,BF:NEXT 
110 SET PAGE 2.2 
120 VPOKE BASE(28)f4,&HD8 
130 LINE(0,0)-<255.211).4. BFlLINE(8.8)-( 
136. 136),0, BF:A=USR1(0) 
140 LlNEde, 144)-(31. 159),0,BF 
150 SP=0:LINE(16. 168) - (31. 183) , 0, BF rPSET 
(40. 168) .0:PRINT#1, "SPRITE ": GOSUB 43 


160 FOR 1=0 TO 2:LINEtl*64+8.0)-(l*64+8. 
144). 15: LINE (0, 1*64+8) -(144. 1*64+8) . 15:N 
EXT I 

170 C=15:PSET(176.8),0:PRINT#1,"COLOR" :G 
OSUB 420 



l&Sf PSET(16J?,24),flf:PRINT#l." CAJ fi^)\>ry 
190 PSET(16jff.40f) ,0:PRINT#1." Cb;) ■/' a^f 
200 PSET(16«-. 56).B:PRINT#1." [CcJCOLOR 
2lJff PSET(16K.72),Jff:PRINT#l. " CEe3SP.No. 
220 PSET(160,88) .a:PRINT#l. " CG) GET" 
23jff PSET(16;ff, lJ04),Jff:PRINT#l," CP) PUT" 
24jer PSET(16«. 12J0') ,J0r:PRlNT#l, " LF) FILL" 
250 PSET(160, 136) .0:PRINT#1, " LS) SAVE" 
260 PSET(160. 152).0:PRlNT}fl," LL:1 LOAD" 
270 PSET(160, 168) .0:PRINT#1, " CDD DATA" 
280 X=0:Y-0:KF=0 

290 GOSUB 400:A=USR7{0) :A=ST1CK(0) :IF A= 
THEN GOSUB 400: GOTO 330 
300 IF USR0(0) THEN GOSUB 400 : A=USR9 (A-1 
) : GOTO 290 
310 GOSUB 400:X-X-(A>1 AND A<5)+(A>5 AND 

A<9) :Y=Y-(A>3 AND A<7)+(A<3 OR A=8) 
320 X=X+(X>15)-(X<0) :Y=Y+(Y>15)-(Y<0) 
330 A=STRIG(0) : IF A GOTO 360 ELSE KF=0 
340 A$=INKEY$:1F A$<>"" THEN 0N(1NSTR("A 
aBbCcEeGgPpFfSsLlDd" .A$)fl)/2 GOTO 440.4 
50, 460, 470. 480. 490. 500. 510, 580, 650 
350 GOTO 290 

360 IF KF=0 THEN IF PEEK (SAf Y*16+X) =C TH 
EN KC=0 ELSE KC=C 

380 POKE SA+-Y*16+X, KC: IF KC THEN PuKE CA 
+Y,KC 

390 POKE SN. Y:A=USR8(0) :GOTO 290 
400 LlNE(X*8+8.Y*8^-8)-(X*8+16, Y*8+16),7, 
B.XOR 

410 RETURN 

420 LINE(160.8)-(167, 15) . C. BF : PSET (216, 8 
) .0:PRlNr#l,C:KETURN 

430 PUT SPRITE 0, (16, 167) . , SP :COLOR SPRl 
1E$(0)=C$(SP) :RETURN 
440 A=USR2{0) iGOTO 290 
450 A-USR3(0) :GOTO 290 

460 C=C+(A$="C")-(A$="c" )f32 AND 15:G0SU 
B 420: GOTO 290 

470 SP=SP+ (A$="E")- (A$-"e")+32 AND 31:PS 
ET(88. 168).0:PRiNT#l,SP:GOSUB 430 : GOTO 2 
90 

480 POKE SN, SP:A$=USR4(C$(SP) ) iGOTO 290 
490 POKE SN. SP:A$=USR5(C$(SP) ) :GOSUB 430 
:GOT0 290 

500 POKE SN.C:A-USRb(0) iGOTO 290 
510 SCREEN 0:IF INKEY$<>"" GOTO 510 ELSE 

FILES "*. spd" : PRINT 
520 LINE INPUT" Save K ILENAME : " ; A$ 
530 IF A$="" THEN SCREEN 5 : SET PAGE 2.2: 
GOTO 290 

540 IF 1NSTR(A$. " . ") THEN PRl N'i "*><*) J 'JUi 
0\it£\^X' ii ! " : GOTO 520 

550 OPEN A$f " . spc" FOR OUTPUT AS#2 : FOti I 
-0 TO 63:PR1N'I#2,C$(I) :NEXT l:CL0SE#2 
560 SCREEN 5:SErPAGE 2.2:BSAVE A$+" . spd" 
, BASE (29), BASE (29) +1023. S 
570 BEEP; GOTO 290 
580 SCREEN 0:IF INKEYSO"" GOTO 510 ELSE 

FILES "*. spd" : PR I NT 
590 LINE INPUT"Load Fl LENAME : " ; A$ 
600 IF A$-"" THEN SCREEN 5 : SET PAGE 2.2: 



GOTO 290 

610 IF 1NSTR(A$, ". ")THEN PRINT" *><*,n LU O 

\it£\< fa!" :GOTO 590 

620 OPEN A$+".spc" FOR INPUT AS#2:F0R 1= 

TO 63:LINE 1NPUT#2. C$ ( I ) :NEXT 1:CL0SE# 

2 

630 SCREEN 5: SET PAGE 2,2:BL0AD A$+" . spd 

".SrCOLOR SPRITES (0)=C$(SP) 

640 BEEP: GOTO 290 

650 SCREEN : FILES"*. ASC" iPRINT: PRINT 

660 PRINT"*** basic; f -97' '/- i/VX ***" 

670 INPUT'XT yiVfyf^' - h' 3;^7? (0-63)" ;S:i 

F S<0 OR S>63 THEN 890 

680 INPUT" K 3?r ?(0-63)" ;T: I 

F T<S OR T>63 THEN 890 

690 INPUT"7T-ffl'*~/»:" :F$ 

INPUT" -f-ff ;^*?(Y/N)" ;A$: IF A$="n' 

N" GOTO 890 ELSE IF A$<>"Y" AND 

THEN BEEP: GOTO 700 

SCREEN 5: SET PAGE 2,2 

.ASC" FOR OUTPUT AS#2;C=0:A 



OR 
A$<> 



700 

A$ = 

"y" 

710 

720 OPEN F$+ 

-10100:B=S 

730 PRINT#2." 10000 1=0" 

740 PRINT#2." 10010 A$="+CHR$(34)+CHR$(34 

)+":FOR J=0 TO 31:READ B$:IF B$<>"fCHR$( 

34)+"*"+CHR$(34)+" THEN A$=A$+CHR$ (VAL (" 

+CHR$(34)-i-"&H"+CHR$(34)+"+B$) ) : NEXT J:SP 

RITE$(I)=A$: I=I+1:G0T0 10010" 

750 PRiNT#2. "10020 DIM C$(63)" 

760 PRINT#2," 10030 A$=" +CHR$ (34) +CHR$ (34 

)+":F0R J-0 TO 15: READ B$:1F B$<>" +CHR$ ( 

34)+"*"+CHR$(34)f" THEN A$=A$+CHR$ (VAL (" 

+CHR$ (34) +" &H" +CHR$ (34) +" +B$) ) : NEXT J : C$ 

(1)=A$: l=Ifl:GOTO 10030" 

770 PRINT#2," 10040 RETURN" 

780 FOR 1=0 T0(T-S)*2+1 

790 IF I MOD 2=0 THEN PR1NT#2. STR$ (A) ■(-" ' 

SPRITE DATA" ;STR$(B) :B=B+1 : A=A+10 
800 PRINT#2,STR$(A)+"DATA "; 
810 FOR J=0 TO 15:PRINT#2.R!GHT$("00"+HE 
X$(VPEEK(BASE(29)+S+I*16+J)) .2) ; 
820 IF J<15 THEN PR1NT#2,","; 
830 NEXT J:PRINT#2."" :A=A+10:NEXT I:PRIN 
T#2.STR$(A)+"DATA *":A=A+10 
840 FOR 1-0 TO T-S :PRINT#2, STR$ (A) +" * SP 
RITE COLOR" ;STR$(I) :A=A+10 
850 PRINT#2,STR$(A)+"DATA "; 
860 FOR J=0 TO 15;PRINT#2.R1GHT$("00"+HE 
X$(ASC(MID$(C$(I) . J + 1.2))) .2) : 
870 IF J<15 THEN PRINT#2.","; 
880 NEXT J:PR1NT#2, "" :A=A+10:NEXT I:PRIN 
T#2, STR$(A) f"DATA *": CLOSE : BEEP :GOTO 290 
890 SCREEN 5 : SET PAGE 2. 2: GOTO 290 
900 LlNE(M*8-h9,N*8+9)- (M*8+15, N*8+15) . L, 
BF : RETURN 

910 IF ERR=53 THEN PRINT"FILE NOT FOUND! 
" : RESUME NEXT 

920 IF ERR=69 THEN PR I NT" DISK ERROR 1": RE 
SUME NEXT 

930 IF ERR=53 THEN PRINT" F I LENAME ERROR! 
" :A$= INPUTS (1) : SCREEN 5 : SET PAGE 1,1: RES 
UME 290 
940 ON ERROR GOTO 0:END 
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1420 DATA 13. lA. 13. 84. ED, 79, 10, P2, 08 


Jiy'^nr'T^<^wmrM 


1430 DATA El.01,80,00,^9,01. 10,E3,E7 


^\^ ^ 1 1 ^^ \ ^ Vr jV 


1440 DATA C9. 21.00, 00. 11.01.00.01.64 
1450 DATA 0F.01.3A,F3,C1.77.ED,B0,76 


^^BB^^ 




i4D0 DATA 03, 82,04, EB. 23. 7E. 23, bb, 94 


Iflf CLEAR 1M,>&HBFFF:DEFINT A-Z :CLS : PRINT 


1470 DATA 6F, U , 00. 01 . EB. 01. 10,00. Dl 


"f -^ t^-fe-ffi-? 


1480 DATA ED. B0.DD. 21, 40f, 05.21,00.92 


20 LN = 10M:C=jff:AD=&HC200 


1490 DATA C0. 16, 10,OD, BA,03,DD,71, 10 


30 LOCATE 0. 1:PRINTLN:F0R 1=0 TO 7 


1500 DATA 00,OD. BA,03,DD,71. 10. DD,95 


; 40 READ A$:IF A$="*" GOTO 100 


1510 DATA 23.FD, 23, 15,20.ED.3A.F3,27 


50 A=VAL("&h"-i-A$) iPOKE AD.A:AD=AD+1 


1520 DATA O1.87,87,87.6F.26.00,29. 38 


60 C=(C+A)AND &HFF:NEXT I 


1530 DATA 29, 11,00,78. 19. CD, B3,C4.4A 


70 READ A$:1F COVAL (" &h" +A$) THEN PRINT 


1540 DATA 21,40,05.06,20, ED, B3. 03. F9 


"f'^^y'y- rtV'J;*' T'J?;^. " :PRlNT"Line Numbe 


1550 DATA 82. 04. 06. 08. 7E, 23. B7, 28, CD 


r =" :LN:END 


1560 DATA 01.37,08, 11. 10. F6. 09. EB.9B 


80 LN=LN+10:GOTO 30 


1570 DATA 23.7E,23,66.6F. 11,00.C1,06 


10B PRINT"t -? *=*3i ■/a')'j37 rh' l/;^ = &HC200 


1580 DATA 01, 10,00, ED.B0,3A, F3,C1, A2 


-" ;HEX$(AD-1) 


1590 DATA 87, 87, 87, bF, 26, 00, 29, 29. IE 


110 PR[NT"-fe-7' yVX. (SPE2.0BJ)" 


1600 DATA 11,00.78, 19, 3A, 0^7. 00, 4F. 50 


120 BSAVE" SPE2. OBJ" . &HC2M, AD-1 


1610 DATA 0C,F3,7O,07,07, E6.03,Fb.88 


130 PR[NT"j^a'>'J3'> ■/7yf.":END 


1620 DATA 04. ED.79, 3E.8E,ED.79.7C.D0 


1000 DATA C3,82.C4,C3,39,C4,C3,5C,E8 


1630 DATA ED.69.E6, 3F, ED,79,FB.0D.B9 


1010 DATA C4.C3,C7,C3,C3.73.C3,C3.B5 


1640 DATA 21,40, 05.06,20. ED. B2.DD. 81 


1020 DATA 61,C3.C3.3B.C3.C3.0rj0r,C3,20 


1650 DATA 21,40, 05. FD. 21.00. 01, 21, A7 


1030 DATA C3,28.C2,23,23.3E,06.CD,24 


1660 DATA 00, 00, 16. 10.DD,4E,00.OD.85 


1040 DATA 41,01,CB,47,C0. 36.01, C9. 38 


1670 DATA 2A.C4,DD.4E. 10,CD,2A.C4.69 


1050 DATA 11.82.04. D5, 23, 23, 7E, 87, AF 


1680 DATA DD.23.FD.23, 15,20,ED.O3.6E 


1060 DATA 5F, 16.jff0,21. 3C,C2, 19.7E.DA 


1690 DATA 82.04.06.08, AF.CB. 01.30. 6D 


1070 DATA 23,66,6F,E9,64,C2.52.C2.F5 


1700 DATA 03, FD,7E,00,77,23. 10.F4,89 


1080 DATA DB.C2,5E,C2.8D.C2.58,C2, IB 


1710 DATA 09,21,00,00, 11, 0F. 00, 06, 19 


1090 DATA B6,C2.4C.C2.CD,64.C2.C3, 57 


1720 DATA 10,O5,E5.D5,06,08. 1A,4E, IE 


1100 DATA B6,C2,CD,64.C2.C3,DB,C2,22 


1730 DATA 77,79, 12.23. IB. 10. F7, El, 46 


1110 DATA CD,8D.C2.C3,Bb.C2,CD,8D.D3 


1740 DATA 01. 10,00.09, EB. El. 09,01. F6 


1120 DATA C2.C3,DB,C2,21,00.C0. 11,E7 


1750 DATA 10. E7, 18. 26.21.00,00. 11, ID 


1130 DATA 40.05,01, 10,00. ED, 80, 11. AB 


1760 DATA F0. C0. 06, 08, 05, E5. 05.06,60 


1140 DATA 00.O0,0^1,F0,00, ED.B0.21, lA 


1770 DATA 10. 1A.4E, 77, 79, 12.23. 13, 10 


1150 DATA 40,05,01, 10.00. ED. B0. 11, DE 


1780 DATA 10.F7, E1.01, F0,FF,0'9.EB,DC 


1160 DATA 00,C1, 1A,21,01.O1.01,0F,AC 


1790 DATA El, 01. 10,00,09,01. 10. E4, 80 


1170 DATA 00, ED,B0. 12.C9.21,FF,C0.04 


1800 DATA 18,00,21,00.00. IE, 08, 0f6.Bl 


1180 DATA 11. 4F, 05. 01, 10. 00, ED. 88. DF 


1810 DATA 10,05, 16.08.06. 10, E5,D5. 74 


1190 DATA 11. FP,O0,01,F0,00, ED.B8.45 


1820 DATA 05.7E.CD.A7.04,01,D1,7A.F8 


1200 DATA 21. 4F, 05, 01. 10. 00, ED. B8. 30 


1830 DATA 06,08. 57,E1,23, 10, EF,7B.9E 


1210 DATA 11,0F,C1, 1A,21,0E.C1,01, 10 


1840 DATA 06.08. 5F, 01. 10. E3, 09, 87, OF 


1220 DATA 0F,00. ED, B8, 12,09. 11.00, BC 


1850 DATA 87. 87,67, 2E. 00, 01, 08. 08, 83 


1230 DATA Oflr, lA, 21.01. 00,01. FF. 00, 78 


1860 DATA C3,F9,04, 3A,07.00.4F,0O.9F 


1240 DATA ED, B0,06,0F, ll.FF,.O0,21, IB 


1870 DATA F3,7C,07.07, E6,03.F6.04. FF 


1250 DATA EF,C0,C5,ED. A0.01,EF, FF,0B 


1880 DATA ED,79.3E.8E.ED,79.7O.ED.00 


1260 DATA 09.EB.09.EB,C1. 10,F3.32,E9 


1890 DATA 69, E6,3F,F6,40. ED.79,FB, 25 


1270 DATA 0F,C0.O9. 11,FF,O0, 1A,21.8C 


1900 DATA 0D. 09. CD. DA. 04. E6, 01.20,60 


1280 DATA FE.O0.01,FF,00,ED, B8,06.F5 


1910 DATA F9,C9. F3, 3A.07,00,4F,0C.BE 


; 1290 DATA 0F. 11,00,C0,21, 10,C0,C5,8B 


1920 DATA 3E.02.ED,79, 3E,8F.ED,79.97 


; 1300 DATA ED.A0,01,0F,00.09.EB.09.25 


1930 DATA 3A.07,00.4F,0C, ED,78,06.9E 


'• 1310 DATA EB,01, 10,F3.32, F0.O0.O9.7F 


1940 DATA 00,ED,41,06.8F,ED.41,FB,8A 


1320 DATA 3A.F3,01.5F, 16,00.21.M,03 


1950 DATA 09.05,00,02.04, P3.3A. 07, AF 


1330^ DATA CI. 19,46. 78.87,87,87, 4F, 82 


1960 DATA 00,4F,0C.3E.20. ED 79.3E,0C 


1340 DATA 87. 5F, 16.00,21,00,00, 19,78 


1970 DATA 91, ED. 79, 00. 00. ED, 61. AF. 18 


1350 DATA 16.08. 79,06.08. 5F, 48,06, 8A 


1980 DATA EO. 79. AF, ED. 69, 30, ED, 79, 25 


1360 DATA 10,7E,B7,28.05, B9.28.02.DF 


1990 DATA AF.E0.51, AF,ED,79, AF. ED.03 


1370 DATA 79,77,C5,E5, D5,CD,A7.04,86 


2000 DATA 59.3E,02,ED.79.AF.D1.ED,2F 


1380 DATA D1,7A, 06.08. 57. El. 23.01, BB 


2010 DATA 51, AF,ED.79, AF.ED. 59. AF. 39 


1390 DATA 10, E7,C9, 21.08,48. 11.00, FD 


2020 DATA ED. 79, AF.ED, 79. AF.ED. 79. C9 


140f0 DATA C0,06, 10.05. E5.0D, 83,04.01 


2030 DATA 3E. 00, ED, 79. FB. 03, D2. 04. 91 


1410 DATA 06.08. lA, 87, 87, 87, 87, 67. 60 


2040 DATA * 
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mzw\'^(D9^m<Dmt^ 



°^ 




CD 



'^ 






iiOliiii 



ffrT; . ?r - ! iv.? 







n^mzt&^itmm<Dmm^ 
7.73-f K^K^-rso TfeSi^ 

CDtz>t^-:ft^ 30)7. ^^-<N 




mebnit^i\ tztzLhtht^ 
i''X$i'jfz^;kfy<^m.$nXLi') 
(nx\ t(r)m.^tt'zf(r>^'^^)[z 

$.fz. ^mm(D\m.^it^'^^ 

■l)fcCO, C C?)7feilSMX'[i. 8X8 

K-y [^(T-^v-r h^m-y-'rx)in 

7:)^"5ji^^c-(t i:\ ii-^ti 1 6 X 1 6 K -y 

'^^\.^fzhO. 

mzm^a^^^-^nx. imn. 

t L7t*^AoXi-^n(d:'00H';b\ 
AoX^,^?^J:(tn[rFFH**^t±j:/]^ 

nX\.^^(DX\ ^(7>fit^y^UJ:i 

gfm. nmm<Ditm.^zm7r.uz 



Lxi^fcus^fctiiucrnti'. 
'^fz^}m'^(r>mw.tmjtz. 

tihX^^H. 
®i-^)ij'~t^^\i)^nfz ! 

n X'fi'^^m^xa^mt^^ $ mm^ 
X$^tzifiz^<t^tzisb, S® 
c d: -? X (iBt < -r ■& 'j:i-^co 'i- uif 

^litLX^cko^te. 
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itmi-^mr^^i^oM^^tz. tz 

Afi#-«DATA5CliT^T ? ■> >m 

=r-^, n%'-Q^Mzmtm~-^ 

xh^(riX\ z^n^y^Acn-jitm 
zxmmizmnLXiiZo, 

Zti~^S^(nX\ C(7)tS7fVv 



[i, y^iJ5' KU;^&HD006,D007 
=E^) (r)&HDQm~^m$tlXl-'i>(D 

x\ B^s\cfy-hm^iiibX'<?ni,m 
fz u Mffnmmx'B ^Mttzo 

mm Lfzzt^^~> >mxniM. u 
tzfmt£(7)X\ -^-y'^mti^'J^^LX' 

UJSWiUt-So^-b. BASIC/c 

^iji^MJi^c It IS V V >mxmti'ti 

Xl'^A^fz. iWXLXU. t-< 
^\.^^'~L.tl<X'Bfzh. tfaMv 

^:^^g^^^- ■ 

=rl 07-24 










■ 




1 Qiotaoc " -- - : 


i«;dJd« 




1001K 


:i^^-/i/' x^ fX^ y D?" 7A 


10020 


by Yellow Monkey J 


10030 


• 


' 


10040 


CLBAR 300,&HCFFF '- ': 


10050 


SCREBN 2,2 


10060 


DBF USR0=&HD000 ' init RAYGUN 


10070 


DBF USR1=&HO003 'Read RAYGUN 7 


10080 


' Read machine data t 


10090 


FOR GF=0 TO 200 


10100 


READ DT$ 


10110 


PUKb &HU000fGF, VAL("&H"+DT$) 


10120 


NKXl 


10130 

10140 


GF=USR0t0) 


- Ini t. <:lieck poinL 


10150 


PX-1/8 


lHlb0 


i'V:-i00 


10170 


' Write check point 


10180 
10190 


LINE (PX.PY)- (FX+15,PY-|-15) , 15,B ■ 




10200 
10210 


IF STRIG(3)=0 THEN GOTO 10190 




10220 


HOKE &HD006,PY 


10230 


POKE &HD007.PX 


10240 


GF=USR1(0) 


10250 


FL-PEEK(&HD008) 


102t.0 

10270 


IF FL=0 THEN 10190 




10280 


BEEP ■ 


10290 


LINE (PX.PY) - (PXtl5,I'Y+15).0.BF 


10300 


PX-1N'1'(KND(1)*31)*8 


10310 


PY=1N1 (RND(1)*23)*8 


10320 


FOR GF-« 10 500: NEXT 


10330 


GOlO 10170 


10340 




10350 


DAI A C3,09.[>0,C3.38, U0.00,00 


10300 


DAIA 00, F3, 01. 05. 00, li.4F,D4 


10370 


DAIA 21.9F. FD.ED,B0,3E.C3,32 


10380 


DATA 9F, KD, 21. 2D. D0, 22, A0, FD 


10390 


DATA FB.3E.FF.01.20,00.2A,CF 


10400 


DATA F3.CU,56.00.C9,F3,E5,21 


10410 


DATA 4E.D4.34, E1.FB,C3.4F.D4 


10420 


DATA 3E.00,32.4E.D4,32.08. D0 


10430 


DATA CD,BF,D0,01.00.03, ll.CE 


10440 


DATA D0.2A,C7,F3.CD,59.00,01 


10450 


DATA 80,00, ll.CE. D3.2A. CD. F3 


10460 


DATA CD, 59, 00. 3E. 00, 01. 00. 03 


10470 


DATA 2A.C7, F3.CD.56.00.CD.BF 


10480 


DATA D0,21.C9.D0,3A,06,D0.77 


10490 


DATA 23, 3A,07.U0. 77,23. 3E.00 


10500 


DAIA 77, 23, 3E,0F.77, 23.3E.D0 


10510 


DATA 77.01. 05.00. ED, 5B, CD. F3. 


10520 


DATA 21, C9, U0.CtJ,5C,00,21,4E 


10530 


DATA D4,7E, F5.3E,01.CD.D8,00 


10540 


DAJA A7, ^0.05.3E,01,32,08. D0 


10550 


DATA Fl. BE, 28. EE. 01. 00. 03. ED 


10560 


DA'IA 5B, 07, F3. 21, CE, D0, CD, 5C 


10570 


DATA 00.01,80,00. ED. 5B, CD, F3 


10580 


UA'iA 21.CE,D3,CD.5C,00.C9, E5 


10590 


DATA 21.4E,D4,7E,BE.28.FD. El 


10600 


DAIA C9 


10610 


"'^ ^^ffill 
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MSX2+T^- 



' ' 












LD 
CALL 


HL. (GRPATR) ^ 

LDIHMV 


:Read and Set VRAM Naae table address ' - 


~7 












^c 




Read Um RE¥_GIIM 










- Clear VRAM ■ ' , | 








_ 1 












LD 


A.fl 


' - \ 


Ty 




by Velto* Bonkey. 






ID 


BC, 76B 


1 


^^ 












LD 


HL. (GSPN'AM) 


;Read and Set VRAM Nase table address " ;j 


^ f 












CALL 


FILVRM 


.: 










«y 




Z8B 








CALL 


WAIT.i.lNT 


;Waii V^blank '.| 


















— Write Check sprite ^i 


iS 


fRTW 


EBU' 


nm\ 


Set data to VDP regster 








:Set Hit check sprite data *j 


Drai 


Eaii 


fl0MH 


Read data from VRAM 




LD 


HL.H1T SPRITE BUF 


', !-" 


mVRM 


EQU 


ea4DH 


Write data lo VRAM 




LD 


A, (HIT CHECK POINT) 


;lead V Check point data ' 


1 1 


ILVRM 


EQU 


flflSSR 


Fill VRAM to data 




LD 


(HD.A 




1 y 


DIRMV 


EQU 


aessH 


Block Bead data froa VRAM 




IHC 


HL 




f^ 


DIBVM 


EQU 


flBSCH 


Block write data to VRAM 




LD 
LD 


A, (HIT CHECK POfNT+1) 
(IH.).A 


;Read K Check point data 


. 


TTRiG 


EQU 


flBBSS 


Gel trigger data 




ifiC 
LD 


HL 
A.fl 


;Hit check sprite code 


3^ 


P_CODE EOl! 


SCSil 






LO 


(HD.A 




mjm 












INC 


HL 




^ 


RP^JAM 


EQU 


flFSCIH 


Paitern SAME table address 




LD 


A. 15 


;Hit cbecl! sprite color code 


M 


jRPCOL 


EQU 


!)F3C9][ 


Color generelor table address 




LD 


(HL).A 




-• 


jRPCGP 


EQU 


aPSCBH 


Pattern generetor table address 




INC 


HL 




7f\ 


-RPATR 


EQU 


aF3CDH 


Sprite AIR table address 




LD 


A.<iDfllI 


;Sprile data End code 


Oj 


jRPPAT 


EQU 


BF3CPH 


Sprite Pattern generetor table address 




LD 


(HL).ft 




I 1 


LTlMi 


EQU 


apDSPH 


Timer intmpt Hook 




LD 


k:.5 

de. (grpatr) 




1 V 












LD 




1 


OOK: 


JP 


INITJEV.GUfi 






LD 
CALL 


KL,HlT_SPRiTE_EaiF 
LDIRVM 




1 




JP READ REV GUN 
(XJOIST: 










1-,rhi>f .iltChr,^ fr,u- PPV.nV 


1 


{[T^CH 






LD 


HL. INT OIUST 


— Jnpul CneCK Tfum ntyviUj^ 


■-1 




NOP 




;Y Check point 




LD 


A. (HL) 




^ 




NOP 




;X Check point 


CHECK_LOOP: 






^v 


ilT_C!iECl[,F!,AG 








PUSH 


AF 


■ "A. 


1 1 




NOP 




:Hit flag 




LD 


A, 1 


;Select trigger I , | 


mm 












CALL 


GTTRIG 


^ 1 


^ 


NfT_HEV_GUS: 








AND 


A 


;Chec); input data 


T 




Dl 




; Initial Se* Hook address 




JR 


NZ,SK1P..SET_FU0 


:!f [Ace] * 8FF do not hit : 


*Ai 




LD 


BC.5 






LD 


A. 1 


;Set hit check flag 






ID 


!>E, HOOK SAVE ARE, 


1 ;01d hook save address 




LD 


(HIT^CHECKJLAO.A 








LD 


HL, fl_TIMl 












1 




LDIR 






SKIP.SET.FLAG: 


















POP 


AF 








LD 


A, JP CWF. 


;Set neu Hook 




CP 


(HI) 








LD 


(!LTIMi).A 






JR 


I. CHECK _LK)P 








LD 


HL. 1ST mm 


;Set intrupl routine 








— Recover VRAM data 












LD 


(H_TIMin),IIL 
















El 




1 1nitial hit check sprite 




LD 


EC, 16! 


:Recover Nane table data 






LD 


A, BFFH 






LD 


DE, (GRPNAM) 








LD 


BC,32 






LD 


HL, NAME TABLE BUF 








LD 


HL, (Gffl'PAT) 






CALL 


LDIRVM 


■i 






CALL 


FILVRM 






LD 


BC, I2E 


:Seoover Sprite AT table data "J 






RET 








LD 
LD 


DE. (GRPATS) 
HL,SPR1TE_AT_BUF 






■ 


Interrupt 




INT,KAiN: 








CALL 


LDIRVM 




. 




PUSH 

LD 
INC 


HL 

HL. INT COUNT 
(HL) 






RET 






' 






IC ■. t 1 ■ . 








WAIT. 


LINT: 




" Wait for I interrupt 














PUSH 


HL 








POP 


HL 
















El 








LD 


HL, INT COUNT 








JP 


H(X)K_SAVE_AREA 


■.ivm to OLD hook 


WAIT. 


LD 
!_1NT_L1: 


A, (HL) 


, 












BEAD_HE¥_KJN: 








CP 


(HL) 








LD 


A. II 






JR 


Z,WAIT_i_lNT_Li 








LD 


(INT COUNT), A 










->' 






LD 


(HIT.CHECK.FLAG) 


A 




POP 
RET 


HL 








CALL 


WAIT_1_INT 


;Wait V.tilank 


. 






















, Vas,y\ VDAIul /lata 


!llT..SPHlTEJiUF 


DS 4+1 










———— f^ssp *[^rfl Udia 










;Keep Name table data 














LD 


BC, 76S 




\AME_TAELE_BUF 


DS 266*3 








LD 


DE, NAME_TABLE_Bb 


F 


SPRITE. AT_BUF: 


DS 128 








LD 


HL, (GRPNAM) 


:Read and Set VRAM Name table address 














CAU 


LDIRMV 




1NT_C0U!JT: 


DS 1 












:Keep Sprite AT table data 


HK)K_ 


SAVE_AREA 


DS ' 5 








LD 


BC, IZS 
















LD 


DE,SPRITE_AT_BUP 


:|^^H^ 


H 


, .END 


:fB 


^^■■^^ 
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I ;*:Bg-B^^ 






hh^ A.Z(D:k.mtMMm%BX\ 











IS^Mit^^'^*^^ 




QDIB 



S;*;IfflJiRff5i±|p^hHT. milij 

m^'^^^. itm(:^miziAzn 

t \.^r>fzW\tXti^h^^^Uttl < . 

*^<, z.(DmMziw^'^^)xh 




CIS, it^#i$^':^;&tlv/cSOt^ 




b. X-k,XA.SO>ti^nmi-^\i.. 
B^m^B(r)n%B(^h'^-^fzfzi,1 
(r)^m(Dio^i(nx\ iS.i)^(DMpf^ 

XUmiStXl-^fz^''tz. 
mW.^^^M:<Ur>fz^l^l(DX\ 




c*^t c%5^L tat 



146 ''—VO:^Tm^^ 





-dTz 1 m(D^aaV^^DU<zm 



tt^ai. 'E3Z\tU<-z,Z, IS 
^i^S. ^'^fflf*©ffiJSl::affii£ 
^^^Izmts'-DZA-DtctZ^Z. 

mtaoym^^mzTcm^iEmtc^ 



AI3, ^lltS^<L^§it79-tt 
Zz>o 

zz(7)mmmm<tozit. zco 








%S0b'SliAIi^"rt^^d:L\©^(3 



nzi\?)(Dtco JgM;g§, zi>^'> 

ffllSBSot<fi^orLi/d:L\o 

AM^«gti/u0yt-'Vv3 >7:7 





• XASliSI 



X.^^''^/ ^V,^ < 'J £i 



''[3. ^^-e-^g^n/ts^^ffla 

/£t(3Sofc<^e©K'&:§tC5 

rt, i@A(ci3i5^ 
\jz<wsx,\mtt^ 

St, -^tbt^:?^ 

(3*^rai:tffli/3- 



ICI3ISTC"rS^5/zo TMWmi± 

mt^/vtc-B(Dtz/^iz. mifmmmcD 
^w^u<mmti'''t^i\-Dta^.zti 

-mmi&(Dszmti'S)^tcit>\z^. 

^35, ICIi(?f-roAgB»ffig|5D^, X-f 



^ ^^ 


ii pjf 


fglfi =X ^ cu 

m. aQ m ^^ 


Mm 


(Ii-> U 3 >^\0^^± 


T566 ;*^|S5m>^^E0:^t*5-7-19 


306-644-4446 


^ 


©Htf^m^^gPn^n*;^ 


=r556 ;'^|i^m;g^iZa:^tS5-4-20 


006-643-5567 


■5T 


®- y ; -f 


x556 ±mJfJ}^^[Ka:^m^-^^-^5 


Q06-643-2038 


^oj 


®|ffil:^*^^^ 


=r555 :*:E5m;^^Ea;$:^4-8-4 


a06-644-1135 


^^ 
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I 








I 



tz. ^mt)3nfz:^n(D&Hz[i. 
1 00 ^ - :? -it SS t Of tin ^ >t#J 

(D^^:^m^t)'<^mfz-^tzi}r^. 
—iim^timfm$nx!K^^tzisbfy\ 



tl'^tz-otz^ 
$X. y \— 'y ■> a 'y 'fiD^^tz 

izm^Btm^mt^.xi^%> nz^ 

L^-scofc'o -n(i^^ iiS:rrL/cM 
SJ^to V V ^ T-v N- h ;;? t' t (iM 

tnx^^^i)^h. /\-'y^ML>(i 



/\--y->3vy«:*c#(iv 1^2 
n'(bLTL^I)C7)T\ U<0;:)^(;>|i 

^^M^ti. Cc7)|g2 7^^t' 

a(7)/^--yg(5P^^la:r^-r§. 







fSfi^gao 



V, Pf^aummtiyzmmym 

mmmmo) i stHP7:)^toffintf 
<t. ^mzx^um^y:><m 







»_c 






nr^^ 



X 



a-J 



S ^ 



ts#m^ 



:?-i 



^'•r-f A-t2> 



J$:?i-iirS 



:^ h -SM 



3052-242-1621 (FAXtlRll:; 



r052-241-3432 



S052-263-1631 



a052-263-1611 FAXa052-261-4015 



a052-262-6471 



FAXW^iJ 



^^ 



iC^SJ 



FAXff)^^ 



^^ 



♦♦♦♦♦♦♦♦♦♦♦♦♦ 

CroiEIJ. yTADX ¥JiTO)V 

uu-(sisfflmE(3v, 5v, lev. 



^t:^r. 






Sia:^^n^7'B?urA^ur< 
v£^>fc}gftnri^5t0iiqi^ 

7=Y •y^<r-^ju:&ffli(-r*Acl:f 

uu— le, x-r-^?^! fl^^6^■ 
^ta cni5«S7?tfi>v-^U-SA 



oi^m 



♦♦♦♦♦♦♦♦♦♦♦♦♦ 

z\yy--y^-^^iu.izn-:3Zi\^o 

Bo St. ^mmmmti<t:^^ 

zt^i\ziymMz^^<7)tzo 
xm\zmm[^rczttcfj\ i\y 

nri\§. B^^^T^JUS-yK^^S 

Hnv^^tsstDZ-co St. 71J 



h(DZ^ti^a<:i)i.-Xzw.D<^-M 
z<n^L<j}z^u(Dz. -mu 

■B'm-DZ^^<tlM\U<, 
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♦♦♦♦♦♦♦♦♦♦♦♦♦ 

S(MSXfflROM:f]-K'J>>'vt 

ffiroaiS55giiatB^-?irLi§p 



«1$I^Sfc'oCM0S-JC.TTL- 

ic, LSk LED, h=>y'yx^ 

l-:^?i-!ct.;*:#0^-;*:-ctg|5S 





I.' sn L 13 4^ « 

-^ ■& X - # tt 

f; A t ^ ■* * 

- 5P -^ t" £ ft 

6 -5 fr * « # 

/I' 7 A ig £ J 

-!.■)* s ^ ^ 

t ■ X- [Z 



.an 



♦♦♦♦♦♦♦♦♦♦♦♦♦ 

Ar-ss^ -gu®isgir-ttxg® 
ti\ ^(D!^,z(DiMzmxunihrz^ 

a?v^5'(33C0fai3DIN3;?.^^ 



m:^Zi\^!Stza -e®(5/]M::t, 
fc^\ tBa/L-ISA^-tf-lCt, 




t .V b ? ft- -; X I' i,Mm~m S ftX 



:^h- 



♦♦♦♦♦♦♦♦♦♦♦♦♦ 

mtzifmtin^<!zz^tz. «mis 

^assp!tttsiji-s^t®t'tf. 




Mm 4=E*3-32 -283052-262-647! 



Dlc®UtA*/d;35J£^d;©"C. T 
<\ZtDti'^ltTTzo 

<ts^^p?)mz7t.mhT_i>^o ic 

13:— )^a^^d:t(7)(3:turLMSffi^ 

-ro^iSfi6ggs'CBL'>r^^„ ^ 



i/a':/^i 



ltBf^il^t}<-;^'otzti^^<r^tz. ^ 

i''tzX'$i=hi'\^^^±tzib^\ m 

ti^-^ct/f, z(nAtzhlt-Sl^t 

Lhm«^ti^^^i-fxu^x<. {± 

T c7);^^f3/5t7)Ai?)^/i':) /lo 

s^^wi tzitxit^j: < o T. mm 
/i 1- V •> 3 -y 7 £7D A/- h (n^umt 

itz. immzmLxfzf]\ mm 




Lota [=:l^ i:Krn1«tS^T 5j 
A/j^i^SbLl^-. ^(JUitS^*^ 
(■t'j:i.^J:TCLfil^t)f7)/;:fs- T 

m^)UA.x< n^ifttzti-htz 



.(nzi-i—xit'^n 



|5';jilfT[5Li^-t'j;t:; ^'j: 
^A.(nhtzX^)^nr>Xtr, 

xlD7-?4 
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SHORT PROGRAM 









SC f#,^ 

Tz 1 ot^yi'-fp-, P0t^ 

BM m\ziiiZi^^:fi-\<(D\'-C> 

BK ^ttBrUSi^-Kroii!^?; 

L(E) ^U-ri'- =l>t:zL-5'^n-E' 

K(12) #tL®^^ 

Di (3) mKD^-^p^timiomm 

X.Y X)l^<tYmi 

vo$ ^v^o^o'&mm 



^Ti 



10-150 iiJ®-\^^l5(Z)?;0igfS^ 

160-220 ;d-K^^>^ACie§ 

430-520 LU/)'6^§;^-K©e!^ro,^^ 

530-720 f-hom-fsms. 

730-950 =l>t°iL-5'fJ©S%Jl/-^> 

960-990 ::\y\±3.-9t''B<Dti—'^^\^ 

1000-1070 3>t'^— ^©;^i-l<CO^^ 

1080-1250 yi'^v-(D^-mi%ii-^y 



1260-1410 y[y-(^-<Dt>-\<a:>m7r^ 
1420-1640 mmm'^wi-^y 
1650-1810 y\yiv-(Dm'&.n\-f.^\^^ 

1B20-1870 ^■^^^>:/^5^-^©»$iA^ 

in ■ ************* 

^8 ■ * * 

30 ■ * PAGK-1 * 

40 ■ * * 

50 ' ♦ PRODECTEO • 

fa« ■ * ♦ 

7B ' * BY S. KA\0 • 

88 ■ * * 

90 ' ************* 

10« SCREEN 1:WIDTH32:KEY OFF :C0L0H15, 4. 4 

:CI.EAR 20B.AHCFFF 

110 IF PEEK(SHD0M)-aHF3 THEN PRINT"BLO 

Al» Lit" :BL0AD"V01CE 

Vie LJEFINTA-Z:A = RND{-TIME) :H I -20 : PLAY" Tl 

20Lb'lO7"."Lb4","Lt)4" 

13B UIM H(l, 15).U(3, 12).M(12).Ka2) .V0$( 

14) 

140 FOR l=ftHF*8 TO &H20*8-1 : READAS : VPOKE 

i , VAL("SH"tA$) :NEXT 
1^0 GOTO 240 

170 IF L(J)+Z>12 OR L(J)=12 THEN FM=J+1: 

HJ) =L (.)) +Z : PLAY" G. a. CFE" : RETURN 

180 FORIl-l'iOZ 

190 T=T+1 : 1FT=?3THENFM=1 : 1 1=Z;GOTO220 

200 A=RNDll)*4:B=RND(l)*13: 1 FU (A, B) G0TO2 

00ELSEU(A.B)-J 

210 L(J)=L(J)+1 

220 NEXT :Z=0: RETURN 

240 UP$=CHRS(SH1E) :[)NS-CHR$ (&H1F) ;l.E$=CH 

RS(SiHU)) :Rl$=CHR$UHiC) 

250 L5S = LES + LF.$ + LE$tLR$+LE$ 

260 A$ = UN$fL5$ + "*iuu.X" : CA$=A$l-A$tA$ + A$ + A 

$+DNS+L5$ 

270 A$ = LE$ + LE$+LE$ + DN$:TE$ = "5T!r" tASf* HH 

"+A$ + " H-\" +AS+'"— ^l" + UP$tUP$ + UP$ 

280 SP$=" "+A$t" "+ASt" " +A$t" 

"+UP$ + UP*4-UPS 

290 A=0:FOR I-&H80 TO &H82 STEP 2:F0R J= 



T(! 7:VP0KE &H370+A, VPEEK { 1*8+ J ) : A=A+ 1 ; > 

NEXT: NEXT 

300 A-0:FOR W&H81 TO SH83 STEP 2 : FOR J- 

TO 7:VP0KE &H380+A, VPKEK ( l«8t J) :A-A+1 ; 

NEXT: NEXT 

310 VPOKE &H2001,&H24:VPOKE SH2002,&H24: 

VPOKE SiH2»03,&HF4 

320 VPOKE &H2B0D.ftHlF:VPOKE&H200E.&H9F:V 

POKE ftH2fl0F.8HFF:VPOKE&H2014.SiH14: VPOKE* 

H2ei5.&H94 

330 FOR l=&H88*8 TO I +7: VPOKE l.ftHFF:NEX 

T 

340 FOR l=ftH25eTO4H25F:VPOKEH-&H100.VPRE 

K(l) :NEXT 

350 F0RI=ftH6C*8T0l+7:ReADA$:VP0Kei , VAL (" 

&H"+A$) :NEXT 

360 FORI=0TO14-.READVO$([) :NEXT 

370 FORT =&H530TO4H54F : READAS : VPOKK I , VAL ( 

"SH"t-A$) rNEXT 

380 .Si:-0 

390 T-0 : L 10) ^0 : L ( 1 ) =0 : H2 J =0 : FM=0 : Z=0 : TZ 

-0 

400 FOR 1=0 TO 3:K0R J=0 TO 12:U(1.J)=0: 

NEXi :NEXT 

410 FOR 1=0 TO 4:F0R J=l TO 2:G0SUB 170: 

NEXT: NEXT ;GOSUB 170 : BM=A : BK-R 

420 GOTO 1430 

440 B^0:KOR 1=0 TO 3:F0R J=0 TO 12: IF U( 
I, J)=A THEM M{B> = I :K(B)=.I :K = H + 1 

450 NEXT:NEXT:B=B-1:RETURN 

460 X = 5:Y=0:M=BM:K = BK:U(M,K)=3:I''B=l:l.{TZ 
)=L(TZ)-! 

470 IF M=0 AND K=0 THEN Z=S 

480 IF K = l THEN Z = 7.t2 

490 LOCATE 5. 7: PRINT " 

500 GOTO 1270 

510 IF BK-7 THEN ON TZ GOSUB Ily0.y70 

5^0 RETURN 

540 LOCAIE i:y,i;PRINT "«' ^" 
550 1 K I R=2GOTO640 

4b0 LOCAIh. 28.0:PRJNT")ilfc«" :PLAY"GD"."GB 

., ^ ., ^^.. 

570 FW=0:GOSliB 1090:A=1 :GOSUB 1580 

580 ON FM GO'lO 1710,1750,1660 

590 IPL(l)=rrHENA=0:GOSU61820:' A-USR(0) 

600 IF L(i)=0 THEN LOCATE 28. l:PRINT "ifi, 

\ !" :GOTO 1660 

610 !F FW=0 GOTO 640 

620 IF BK = AND BMO0 THEN GOTO 570 

630 IF BK=7 THEN GOSUB 1190 

640 LOCATE 28,0:PRlNT"fcti,m" :PLAY"GF", "ED 
„ ^ ., |^p„ 

650 FW=0:GOSUB 740: 1FL(2)<13THENG0SUB 10 

10 

660 ON FM GOTO 1710,1750,1660 

f 70 I FL (2) -1THENA=0 ;G0SUB182e : ' A-USR <«) 



150 
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SHORT PROGRAM 



bH8 IF L(2)-B THEN LOCATE 28,1:PR1NT "ift, 

! r' :G0TO 1758 

69a IF FV=B GOTO 560 

70$ IF BK = AND BHOa THEN GOTO 65£ 

7ia IF BK=7 THEN GOSUB 97» 

728 GOTO 568 

748 A=2:TZ=2:G0SUB 448 

758 IF Z=8 GOTO 790 

768 IF Z-5 GOTO 958 

778 A=8:F0R 1=0 TO 3:IF U(I,BK)=2 THEN A 

=1:B=I 

7ae NEXT: IF A=0 GOTO 950 ELSE 850 

798 FORI=8T03:Dl(l)=a:NEXT 

888 FOR 1=0 TO B:D1 (M (1 ) ) -Dl (M (I ) ) tl :NEX 

T 

818 A = D1 (SM) :B=BM:C = 8:D=0:FOR 1-0 TO 3:1 

F U(I.BK)-2 OR UBM THEN GOTO 838 

828 C = l: IF A<=D1(I) THEN A=DH ! ) :B-I :D=1 

830 NEXT: IF Dl (BM) =8 AND C=8 THEN 950 

848 IF D=8 THEN 868 

850 BM=B:GOT0 460 

868 IF Dl(Bli1)-2 GOTO 898 

870 IF U(Bli!,«l=TZ THEN BK = 0:GOTO 460 

888 IF U(BM.1)=TZ THEN BK=l;GOro 460 

890 FOR 1=12 TO STEH -1:IF UIBM, l)-rz 

boro 938 

908 IF 1=7 ANU DKBMj-i GOTO 938 

910 IK 1-1 AND U(BM.8) = I/ GO'I O 90! 

92iS m=l : 1=8 

938 NKXT 

940 GOTO 460 

950 J-2:G0SUB 178:ReTURN 

978 A = 2: GOSUB 440 : FOR i-8 TO 3:L)1(I)-0:N 

EXT 

980 FOR I =0 TO B : Dl (M ( I ) ) =01 (M ( I ) ) + 1 ; NEX 

r:A=l)l(8) :BM=0:FOR 1=1 TO 3: IF A<D1(I) T 

HEN A=D1 (I) :BM=I 

998 NEXT:LOCATE 5.7;PRiNT "7-?=" ;CHR$ (&H 

A6t-BM) :RETURN 

1810 LOCATE la.B^FOR 1 = 1 TO I, (TZ) tl'RI NT 

TES: 

1820 IF i=6 THEN LOCATE 18,4 

1038 NEXT 

1848 IF 1=7 THEN LOCATE 18.4 ELSE IF 1=1 

3 THEN RETURN 

1858 PRINT SPS 

1868 !F L(TZ)=0 THEN LOCATE ]0,8:PRINT S 

1>S 

1078 RETURN 

1090 A'l :TZ=1 iGOSUB 440 

1188 P0KESHFCAB.255:A$=INKEY$: IF A$=" " G 

OTO 1180 ELSE A=ASC(A$) 

1118 IP A=32 GOTO 1160 ELSE A=A-&H41 

1128 IF A<8 OR A>B THEN GOTO 1100 

1138 IF ZO0 AND K(A)-BK OR Z^5 GOTO 110 

8 

1148 IF M(A)<>BM AND K (A) OBK GOTO 1188 

ELSE BM=M<A) :BK'K(A) 

1158 GOTO 460 

1168 ' A' X 

1178 J=1:G0SUB 170 

1180 A=l :RETURN 

1198 LOCATE 5,7:PaiNT "7-?=?" 

1200 BM=4:AS-iNKEY$:lF A$='S" THEN BM=8 

1218 IP A$="C" THEN BM=1 

1228 IF A$="H" THEN BM=2 

1238 IF A$="D" THEN BM=3 ELSE IF BM=4 TH 

EN 1288 

1248 LOCATE 9,7:PRINT CHRS (&HA6+BM} 

1250 RETURN 

1278 LOCATE X.YiPRlNT " rM'^n" ;CA$;" kt**-" 

1288 IF K<10 GOTO 1318 

1298 A$="jlk" :A$=MID$(A$.K-9, 1) :K=8 

1388 LOCATE Xi-1, Y+1 :PR1NT A$:LOCATE X+3, 

Y+5:PRINT AS 

1318 M$=CHRS(ftH6E+M) :K=K+1:1F 1NT(K/2)=K 

/2 GOTO 1340 

1328 LOCATE X(-2. Yt3:PRINT M$ 

1338 IF K=l THEN RETURN 

1348 LOCATE X+1. Ytl :PRI NT M$ : LOCATE X+3. 

Y+5:PRINT m 

1358 IF K<4 THEN RETURN 



1368 LOCA'I'E X + 3, V + 1 :PRIN'l HS : LOCATE X+1, 

Y+5:PRINT MS 

1378 IF K<6 THEN RETURN ELSE IF K=8 OR K 

=9 THEN GOTO 1488 

1388 LOCAlb X+ 1 , Vt3 : V-Hl N I MS;RIS;M* 

1340 IF K<8 THEN RETURN 

1488 LOCATE Xt 1, Yt2:PRINT M$:RI$;M$:DN$; 

DNS : Lh:$ ; LE$ ; LE$ ; MS ; R 1 $ : MS 

1418 RETURN 

1430 CLS:1F RND(1)<.5 GOTO 1458 

1448 LOCATE 12, 12 :PRINT" tit M" :PLAY"CR6 

4'',"ER64"."GR64'" : IFINKEYSO" ■■THENTR = 1 :G0 

TO 1470 

1458 LOCATE 12, 12:PRlNT"fctl, K";PLAY"DR6 

4''."FR64"."BR64" : IFINKEYSO" "THENTR=2:G0 

TO I 470 

1468 GOTO 1448 

1478 1FPLAY(8)THENGOTO1470 

1480 CLS:FOR 1=8 TO 5:L0CATE 1*5+2. 15:PR 

INT CHR$(&H41 + I) :LOCATE 1*5 + 2. 23: PR I NT C 

HR$(SH47+I) ; :NEXT 

1498 A$ = DNStL5$ + " H +- H " 

1600 LOCATE 8,8:PRIN'l " fi-n-m'* ; AS ; AS ; A$ ; A 

S:AS;DN$:L5$;"— --^l" 

1518 LOCATE 29.4:PRINT "SC." 

1528 LOCATE 32-LEN(STRS(SC)),5:PRlNT SC; 

LE$ ; '■ -■' 

1530 GOSUB 460 

1548 A=1:G0SUB 1588 

1550 TZ=2;G0SUB 1810 

1568 GOTO 548 

1570 ■ ■■■>■■ Print My Table ■■>>■■ 

1580 B=8:X-0:Y=8:FOR 1=0 TO 3;F0R J-0 TO 
12:IF U(1.J)=A THEN M= I :K=J :B=B+1 :GOSUB 
1270:X=X+5: IF X>29 THEN Y=16:X=8 

1598 NEXT:NEXT 

1600 IF B-12 THEN RETURN 

1610 IF B=6 THEN Y=16:X=8 

1620 A$=" "+DNS+L5$ 

1638 LOCATE X,Y:PR1NT A$;AS:A$:A$:A$ ; A$; 



1648 RETURN 

1658 ' •••••• You win M ■»■■■■ 

lti60 FOR 1=1 TO H2) 

1678 SC=SC+1: LOCATE 32-LEN (STRS (SC) ) , 5 : P 

RINJ SCiLES;"-" ; 

1688 NEXT:A=1:GOSUB1828;"A=USR[0) 

1690 GO TO_390 

1710 CLS:LOCATE 12.12:PR1NT " WfW} V t' 
1720 POR 1=0 TO 1008: NEXT 
1730 GOTO 390 

1750 CLS:LOCATEl2,"l0:PRlNT"tit f) 7^!!" 

1768 L0CATE13, 12:PRINT"SC0RE ";SC 

1770 !FHI<SCTHENHI=SC:L0CATE11, 14;PRINT" 

YOU ARE NO- n?" :GOTO1790 

1780 L0CATF.12, 14 : PRl NT" H 1 -SCORE" ;HI 

1790 L0CATE9. i6:PRiNT"TRY AGAIN? LY/Nj " : 

A=2:GOSUB1820:'FOR1=0TO2:A=U3R(8) :NEXT 

1800 AS- 1 NKEY$ : I FA$=" Y" G0T0388ELSE I FAS=" 

N""IHeNCLSELSE1808 

1810 END 

1828 FORi=0TO4:POKEl+&HD823, VAH"&H"+VOS 

(l+A*5)) 1 NEXT: RETURN 

1838 DATA 8,8.0.0,3,7, F,F, 0,8, 8.8, C8,E8. 

F8,t-'0,EF.EF,EF,EF,0,0,8.0.8,0.0.0,EP,EF, 

EF.EF,F0,F8.F8,8,F8,F0,F8,F0,F,F,F,8,F,F 

. F. F.KF, KF. RF, a, KF, FK. EF.F.F, F0, K8, E0, C0, 

8.0.8,0 

1840 DATA F, K, 7, 3. 0,0. 0.8, 0.0. 8. 0.3, 7. P, 

F,a.0,0,8,C0,E0.Ffl.F0,F.F.7,3.0,8.0,0,F0 

,F0.E8.C0,8.0.8.0,F0.F0.F8.F0.F0.F«.F0,F 

0,KK, KF,FF,FK,0.B.0.0.F,F.F.F.F.F.F.F,8, 

0,0.0,FF. KF.KF.FF 

1850 DATA70, 88, 88,88, A8, 90, 68,0 

1860 DATA 58, D0. 11,38.4,81.04, 11.68. 5. E2 

.D9. 11,78,6 

1870 DATA18. 3«,7C.FE,FE. 38. 70.0,38.38. FE 

.FE,D6, 18,7C,e,6C.Fe,FE,Fe,7C,38. 10,0, 10 

.38,7C,FE.7C.38. 10.0 



STRIANGLE: 






m 



D(17.13) 
E(17.13) 
A$ 

B$ 

X.Y 

XX.YY 

D 

HX,HY 

2X.2Y 

Z$ 

P 

PO 

Xn.Yn 



m 

^ll©X75[^.Y7^fq] 

if* 



ai 



6-16 

30-130 

190-195 

200-290 

300-326 

330-390 
400-500 

510-570 
580-581 
590-600 
610-617 
630-640 
650-670 




m.(DmD^^hfzt.i^(Dm^ 
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STRANGLE UXSCDS^S 



b l)l« D(17, 13).E(17, 13) 

IB COLOR 15.».e^:SCREEN 5. 2 : SETPAGE0, 1 : CL 

S:SETPAGea.B:CLS 

15 A = RND(-TlIilE) 

lb A$="" :FORl-0TO31:BS=CHR$(VAL("aH"tMID 

S<"0'8081ClCFF7P3E3E7741ff0M0M0ff»M00BBa 

eentiMMeBzzzsszzeBeeiseezBBe" . 1*2+1. 2) ) ) -. 

AS=A$tES:NEXTI :SPRiTE$ (B) =A$ 

3a FOR 1=8 TO 191 STEP 32 

4B FOR J=a TO 255 STEP 16 

5fl SETPAGEa, 1:PSET(J, 1 ) .8:SETPAGE£', 8:PSE 

r<J, l).8:NEXTJ 

6a FOR J=e TO 255 STEP 16 

7a SETPAGEB. 1:PSET(J. 1+16) , 8:SETPAGEa, £: 

PSET(J, l+16).8-NEXrj. 1 

8B KOHI ^11016 :E(T. 1)-E(I. 1)0H33;E(]. 12)= 

Ed. 12)0R12:NEXT1 

9» F0Kl=2roi2STEP2:E(l. 1)-E(1, 1)0R56:E(1 

t,, i)=Ea6, I)0R2:NEXT1 

laa F0HI^1T012STEP2:EI16. l)=Etl6. 1)0R7:E 

(1. [)-Ea. I)0R16;NEXT1 

ia5 GOSUB 63a 

IJfl X-8:Y=b:ST=a:P=a:PO=30 

13« OPEN"srp:"AS#l 

190 HX-[NT(RNDa)*3B)*8+4:HY=INT(RND(l)* 

ll)*16+9 

195 PUTSPRITEB. (HX.HY) , la.a 

196 PSET(96.193).e:P[{INT#l. "«:" ;P0 

2aa xx=a;yY=a 

2B5 IF INKEYSO"" GOTO 285 

21B PSET (X*i6 + 8* (YM0D2) -16, Y*i6-8) , RND (1 

)*15 

22B A$=1NKEYS:1F A$="" GOTO 2ia 

23a \V AS-"4"'THEN XX=-1;GOTO 388 

248 IF A$="6" THEN XX=1;G0T0 388 

25B W AS-- ■■7" THEN XX=-((Y+1) MOD 2):YY= 

-1:GOTO 388 

2ba IF A$="9" THEN XX= (Y MOD 2):YY--1:G0 

lu mis 

278 IF AS-"1" THEN XX=-((Y+1) MOD 2);YY= 
l^GOTO 388 

28B IF A$^"3" THEN XX= [Y MOD 2):YY = 1:G0T 
3BB 



285 IF A$=" " THEN END 

298 GOTO 21B 

388 D=1NSTR("963147" ,A$)-1 

318 ' I=ABS(DD-D) : IF I <>2 AND I <>4 AND ST 

THEN BEEP: GOTO 288 
315 ■ 1=ABS(DD-D) : IF(W 2 OR 1= 4)AN0 ST 

THEN BEEP: GOTO 280 
328 1FD[X, Y)AND{2''D)THEN BEEP:G0TO 288 

325 P0 = PO-i:PSET(96.193).8:PRINT(!l,"lil:" : 
PO 

326 IF P0=-1 GOTO 61B 

33B D{X. Y)-D(X.Y)0R(2'-D) ;B (X. Y) =E (X, Y)OR 

(2"D) 

348 X1=X;Y1=Y:X=X+XX:Y-Y+YY 

358 D(X.Y)=D(X. Y)0R(2^<(3tD)M0D 6) ) : E (X. 

Y) -E (X, Y)OR (2'- ( (3 + D)M0D6) 1 

35S IF A$="y" OR A$="3" THEN 388 

368 LlNE(Xl*l6t8*(YlMUD21-16.Yl*16-8)-(X 

*16+8*<YM0D2)-16, Y*16-8) . 15 

37B SETPAGE8. 1 :LINE (X1*16^8* <Y1M002) -16, 

Yl*16-8)- {X*16+8*(yM0[)2)-16,Y*16-8) , 15:S 

ETPAGEB.8:GOT0 4B8 

38B LINE(X*16+8*(YM0D2)-16,Y*16-8)- (Xl*l 

6tS*(¥lM0D2)-16,Yl*16-8) , 15 

39B SETPAGEB, 1 :LINE (X*16l-8* (YM0D2) -16. Y* 

16-8)- (X1*16+8*{Y1M0D2)-16. Yl*16-S), 15: S 

ETPAGEB.e 

488 IFDO1ANDDO4G0T0 448 ELSE IF D = l TH 

EN X1=X 

418 IF(DIX1- ({Y+1)M0D2).Y-1)AND12)=12THE 

NX2=X1- ((Y+1)M0D2) ;y2=Y-l 

128 IF(D(X1- ( {Yi-1)M0D2), Ytl)AND33)=33THE 

NX3=X1-1:Y3-Y 

430 GOTO 51B 

44fl IFD<>aANDD<>3G0T048BELSeiFD=8THENXl= 

X:Y1-Y 

450 IF(Dai-l. Yl)ANDt.J=6THENX3 = Xl-l;Y3 = V 

1 

4be IF (Dixit IYIM0U2) . Yl+1) AND48) =48THENX 

2= XI : Y2=Y1 

478 GOTO 518 

488 1FD'5'[HENX1=X:Y1 = Y 

493 IF[0(Xl+l,yi)AND24)=24THENX3=Xl:Y3=Y 



588 1F(D(X1-! [Y1 + 1)M0D2) , Yl + 1) AND3) =3THE 

NX2=Xl:y2=Yl 

51B IF X2=B GOTO 548 

52B I' = Ptl;E(X2. Y2)=E(X2. Y2)AND51:E<X2' {[ 

Y2+l)MOD2) ,Y2+1)=E(X2-((Y2+1)W0D2). Y2+1) 

ANDba : E (X2t (Y2M0D2) . Y2t 1 ) =E (X2+ (Y2M002) . 

Y2+1)ANDI5 

538 X4=X2*16+8*1Y2M0D2)-16:Y4=Y2*16-8:X5 

=X2*16+8*(Y2M0D2)-24:Y5=Y2*16+8:X6=X2*16 

t8»(Y2M0D2)-8:Y6=Y2*16+8:G0SUB 658 

54a IF X3=B GOTO 588 

558 P=P+1 

568 E(X3, Y3)=E(X3.Y3)AND57:E(X3+1.Y3)=E( 

X3+1,Y3>AND39:E(X3+ (Y3MOD2) . Y3H ) -E (X3+ ( 

Y3M0D2) , Y3+1)AN038 

578 X4=X3*16+S*(Y3M0D2)-16:Y4=Y3*16-8:X5 

=X3*16t8*[Y3M0D2) : Y5=Y3*16-8:X6=X3*16t8« 

(Y3MOD2)-8:Y6=Y3*16+8:G0SUB658 

58B X2=B:X3=a:DD=D:ST=l:PSET(16.193J,«:P 

RINTfll. "P:" :P: 

581 I FPOi NT [HXt5. HY + 5) =4THENBEEP : PUTSPR 1 

TEB. <HX,HY).8.8;G0SUB63e:C0PY(8.B)-(255. 

191J. 1TO(0.8) :P0=P0+18:IF P0<5B GOTO 198 

ELSE PO=58:G0T0198 
598 [FD{X,Y)=63 GOTO 618 
608 GOTO 208 

618 PSET(96. 193), 0:PRlNT)tl, 'GAME OVER" 
615 IF INKEYSO" " THEN 615 ELSE RUN 
617 END 

638 F0RI-lT016:FOt{J = lTO12-D[], J)=E(I, J) ; 
NEXTJ, 1 
648 RETURN 

b5B L1NE(X4,Y4)-(X5.Y5). 15 :LINE- (X6. Y6) , 
15:LINE-(X4. Y4), 15 : PAINT (X4-8* (Y4=Y5) , Y4 
+8) ,4, 15 

655 SETPACE8. 1:LINE(X4, Y4)-(X5, Y5).8:LIN 
t- (X6. Y6) . 8: LINE- (X4, Y4) , S 
668 I'SET (X4, V4) , S : PSE f (X5, Y5) . S: PSET (X&, 
Y6) .8:SETPAC;E8.B 
678 RETUKN 




BK$ ti-v}\^^yhn-}im 

CH$(e) ^(D^v^o^i\^-y 

ci .ce [}o:it^t>~'j)b^-. ^(D^z 

cs ^oru§=i>sa-^0fysij 

CL y\^-(v~(T>m^ 

PS.CH /KXbtcP<^3t(^(Dy3^' 

RS e^Plt§X^-X(Z)if« 

Ki xe m^mi\zs^^o^^ 

CR.YY ti-'^IUO)iiim 

VR ti-'j)b(D^myj\s\ 

CT 5^»il-rt^©*'5>^ 

px. PY iimmo^mm 

sc(7.7) ^^m<^x(D'^tm 



a] 



190-220 ti-'J)l^-<tVB-<7.^'( -'J 

230-340 ffiS^^^'T^ 

350-410 ^K17-1 (Dm'^mm^ 

420-470 y[^^v~^(Dm'^(Dmm 

580-6B0 S^mi-riuP©il?K 

690-810 5tf'^sru< t^(Dmm 

820-950 ^^WMt^^CD^m 

960-1000 m-^m-fo^m 

1010-1140 ^v^os'j'\^~y^'^mt^ 

1150-1160 'K^NJbcT)^-^ 



laa DRFINr A-/.:SCReEN 1,2:W1DTH 30 

118 COLOR 15,1,1:KEY 0FF:GOSUR 1818 

120 VPOKE SH2ai6,&HAl:VP0KE ftH2ai7,aH61 

13a VPOKE &H2818,ftH41:VP0KR &H28I9,ftH2t 

148 VPOKR ftH281A,&HFl 

150 BK$=CHH$(311+CHii$(29H-CHR$(29) 

168 CH$(l)-"T'i*+BK$ + "'(I" 

170 (:H$(2)-"?:i"+BK$t''tt" 

188 FOR 1 -8 TO 7 : READ VX { 1 ) , VY (I ) : NEXT 

198 PRINT ■'•**** OZELOTT *****": PR I NT 

288 PRINT "a)i>-fiS- 1)L' Jl'n»-)<" :PR1N 

T 

218 INPUT "PlayerKJVv^)" ;C1: IF ClOB AND 

ClOl THEN 21B 
22a INPUT '■player2(A*') 

(:2<>1 THEN 228 

24B CLS:PRINT 

25B FOR 1=1 TO 16 

26B PRINT ■■^"+STRING$(16, ■'*")+" 

278 NEXT 

288 PRINT "?"+STR!NG$(16. "(■■■)+" 

29B FOR l=a TO 7:F0R J=8 TO 7 

3Ba SC{I, J)=a:NEXT J. 1 

318 LOCATE 28.3;PRiNT "OZELOTT" 

328 LOCATE 2a,18:PRINT "MJ'At'f 

338 LOCATE 28.13:PRINT CHSU):": 

348 LOCATE 28,16:PRINT CH$(2):": 

358 REM ••••••• MAIN 

368 LOCATE 22.7:PR1NT CH$(1) 

378 IF PB=8 THEN CH=1 ELSE CH=0 

380 CS-Cl :CL=1 :GOSUB 588: IF EL THEN 388 

398 IK P.S=1 AND CH=8 THEN PS=8 

400 GOSUB 480 



;C2; IF C208 AND 



-I" 



0" 
0" 
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SHORT PROGRAM 







iSS ' YUHl.MAC (MAC UATAt 

4i) ■ 

tiB CLbAKlM, fiHC»M : SCKKKN* : W I i;'IH4B : PKK IN 

TA-Z 

7a A=&HCH06:DKt-USK-A 

88 LOCATKjB, 3:PHlN'l"lttiAUiNG LINK NO." 

98 ■ 

i»a CS=8 

im POR B = A TO A+7 

12H KKAi) 1)S:[)-VAI,("S[H" +-D$) 

138 IK D$ = "[iNI)" THEN BSAVE" YUH I . OBJ " , SHC 

aH8.ftHC716:END 

148 CS=CS + U:HOKK B, D 

ISH NKXT 

Ibe (,= PKKK(aHf''6A4)*256 + PEEK(&HKbA3) 

178 l.(>CAl>:i8,3:HKINI I. 

188 KKAI) S$ 

iy8 CSS-KlGHrS ("M" +HEX$ (CS) . 3) 

ZHB IK CS$<>S$ I HEN 2ill 

218 A-A4-8 

Z2B UUTO laH 

238 ' 

:i4e KKINI L:"4' s'JJ^y^- -a'i'Js?;^;^' T'JV.J" 

i:=5H BEEPiKNU 

268 ■ ===== DATA --=== 

;i7« DATA Il,88,M.21.80.ai.CD,38,238 

288 DATA C2. 11. 48. 81. 21. 88. 01. CD. 283 

2')H DAIA 38,C2,21.86.28.3E.A1,»1.221 

388 DATA 88, 08. CD. 56. 08. 21 . 48. 39. 1C5 

318 DATA 3E.KK.01.28.fl'e.CD.56.88.281 

328 DATA K3,21.9K.KL>. U. 18.C7.81.3A1 

33B DATA flS.B8.ED.B».3li,C3,32.9F.374 

348 DATA KD.21. 18.C7,22.A8. FD.KB.4i)7 



358 DATA 

3b8 DA lA 

378 fJA'IA 

388 DAl'A 

398 DATA 

488 DATA 

418 DAIA 

428 DAI A 

438 DA'IA 

440 DATA 

450 DAIA 

4fc.e DATA 

478 DAIA 

488 DATA 

490 DATA 

508 DATA 

510 DATA 

528 iJA'IA 

538 DATA 

540 DATA 

558 DATA 

568 DAI-A 

578 DAI A 

588 DATA 

508 DAIA 

t.8fl DATA 

blH DAIA 

(.28 DATA 

ti38 DATA 

648 DAIA 

t.5fl l)AI.'\ 

668 DAi A 

678 UAIA 

688 DATA 

690 OA'IA 

708 DATA 



CD. VV, 

3b, en, 

22. A2. 
C7.7E, 
C7, PR. 
CD, D5. 
03, 20, 
28, 11, 
3A. Ill, 
32, IE. 
5F,21, 
B7,28, 
C7. 11. 
19, C2. 
20.02, 
3B,C7. 
C7. 3A, 
C7,3A, 
21,35. 
7D.C2, 
21, 2D. 
C3, CD, 
KU.21. 
7E. 81 . 
08, nil, 
26. 3A, 
88, 88. 
81). CD, 
7K,(;j. 
01, DD, 
88,88. 
CI. 18, 
C7 , 3A . 
84,21, 
19, 10, 
82, 3H, 



21.40, 
18, KB. 
CD, K5, 
28. 0A. 
38, 15, 
(■~ij,87, 
3A. IK. 
32, IE, 
KE. 34. 
3A.3B, 
08, CD, 
CD,4C, 
75, CD, 
1K.C7. 
88. 32, 
3A, IE. 
C7.Cb, 
C7 . KK . 
DD,21, 
28,21, 
CC.7D, 
C3,f)D, 
C7.86. 
18.28, 
00, DD, 
C7. 16, 
7E, Ci. 
C3.21, 
KD.75, 
88. DD. 
19, t''D. 
3A. 26, 
C7,32, 
C7, 11, 
3A, 39, 
32,39, 



C7,86, 
21, FF. 
C3,21. 
35, JiA, 
38 , 28 , 
28, 11, 
C7.KE. 
C7. 18. 
28.04. 
C7. 16. 
3A.32. 
C4.2A, 
28,08, 
B7.3K, 
lK.r;7. 
C7,32. 
84.32. 
58,20, 
25, C7, 
37, C7, 
C2.Ci). 
21.26, 
8'2.C5, 
8B.KD. 
77, 80, 
88.51-', 
71). B7, 
83,88. 
01, Kl). 
77.88, 
23, KD. 
C7.32. 
32, C7, 
04,88, 
C7.3D, 
C7,3A, 



8K,3CB 
7F.383 
63,4C9 
1E.2BB 
AK,38U 
KE,3DE 
C4.31C 
8B,'1AF 
3D, 2BA 
SB. 269 
7D. 246 
40.33A 
D2, 33C 
80.2K8 
21. lAl 
22,2A9 
23. 306 
0A,379 
CD. 3D4 
Dl),461 
4E.43B 
C7,4C8 
DD. 3C4 
711.333 
18. 2<>' 
21. 1K6 
20.36A 
CD. 2K5 
7K.45A 
1 1 . 2C9 
23. 3 3!*, 
2A. 30 K 
86, 327 
34. 15A 
28, 2BC 
47.243 



718 DATA C7, KK.78.CA,83.C2.3A,4C,452 
728 DATA C7. B7, 28. 54. 11.64.88.26.295 
738 DAIA Ba,6K,CD,E6.31,7D,3C.21,32D 
748 DAIA 4D,C7, 77.CD, 28.C3, 21.C5, 429 
758 DAIA C6, 11, ID, C7, 81,88,08, ED. 2B1 
760 DATA B0,21,08, 10,22.3E,C7,CD,2D5 
778 DATA 4E,C3,31-:,6D,32,64,C7.CD.3E6 
788 DATA 9C, C5, 21. 64, C7. 35, 16. 08, 2K8 
798 DA'IA 5E,21, 12,8a.CD,3A,32,7D,247 
888 DATA B7,21, K2.C6,CC, Bl,Cb,Kh.5Dl 
818 DAIA B'J, 21, 08,C7, CC, HI. C6.21, 355 
828 DAIA 4D.C7. 35. 20.83. CD. KK. C2. 3KA 
830 DAIA hi), 5H, A2, KC, 21,69. 7K. CD,4BC 
848 DAIA 28,80.38, 37, 21.47. C7. 34. 1K2 
858 DAIA ED. 5B. 47, C7. 21,64.88.22, 2KD 
868 DAIA 4K,C7,06.02. DD. 21,49.C7. 32C 
870 DATA CI), 49, C2, 26. 19, 2E. 81. 11.257 
888 DATA 49, C7. 86. 03, CU. 78, C2. ED. 485 
890 DAIA ^B,47,C7,21.02,08,CD,3A.293 
900 DAIA 32.7D. B7,CC. E5. C3. 21. A2. 491) 
910 DAIA KC. 36, KK, 2A. 3K.C7,CD, 4K.47C 
928 DA'IA C6.B7,CD. B7.00,38, i8,3A,38B 
930 DATA 4l),C7.B7.C2,y7.Cl,(:3.56.4KK 
940 DAIA C8, CD, 28, C3,CU. 5B. C3,CD. 530 
1)58 DA'IA 4K, ca, 3h,01. 32.4K,(:7. K3. 3SA 
960 DAIA 21, 18.C7. 11.9K, KD.81.05. 2B3 
5)70 DATA 80, hi), B0, KB. E:I). 90.00. C9. 4BK 
980 DATA CIJ, 4A,00,4K.CB. 3K. Bl.CD, 3EE 
49H DAIA 40,08. 23. IB. 7A. K3, 20. K8, 2C8 
1800 DAIA C9. C5. D^.CD. I'^b, 31. DD.75. 599 
1810 DATA 08,1)1. 2A.4K.(J7. CD. 3A, 32, 34A 
1820 DAIA E5.ED. 5B.4K.C7,21.8A.88.3bK 
1030 DA'IA CD.Eb. 31,22.4K. i:7, DD. 23.41C 
1848 DATA Dl . CI . 10. DD. DD. 73, 88. C9. 498 
1850 DAIA (:D.Cb.80. 1A.C6. 30. CD. A2.412 
1868 DATA 88, 13. 18. K7, C9. h5, CI). 67. 3KC 
1070 DAIA C3, 21,82, 88. C;l), 7h, C3,7U. 371 
1880 DATA li7,3h. i8.28,82.3E. 10,DD.25A 
1890 DAIA 77.82,C6. 1)4, 1)0.77. 86, C:i). 36A 
1188 DATA 67.C3.CD,67.C3.21.8C,e8.34E 
1118 DATA CD, 7K.C3. 23,23. DD. 75,83. 3Ay 
1128 DAiA DD.7E,82.EE. 18.3K.8K.28.2D7 
1138 DA'IA 01.3C.I)l).77.87.CD.b7,C3,38K 
1148 DATA 21,83.88,CD,7E.C3, U, 18.253 
1158 DATA 00. l)D,K5,CD.93,31.DD.hl,51I 
1160 DATA U, 68.00. 19. DD. 75,81. DD.2C2 
1170 DAIA 75,05,CD.K8.C2.hl,77,3K,47K 
1180 DATA 78,DD.77,80.DD,77,04,C9.3K5 



410 \V RS=0 THEN 960 

420 LOCATK 22.7:PR1NT CH$ (2) 

430 IK PS=0 IHhN CH = 1 El.SH CH-0 

440 CS=C2:CI,=2:G0SUH 580: IK Kl. THEN 440 

450 IK PS- I AND CH=0 THEN PS=0 

460 GOSUB 488 

470 IK RS-0 THEN 968 Kl.SE 358 

480 REM »■■>■»■ NUMBERS OK RES'I' 

490 RS=0:K1=0:K2=0 

588 FOH 1^8 TO 7 : FOR J=8 TO 7 

518 IK SC(I..1)=0 THEN RS=RStl 

520 IF SC(i.J)=l THEN K1 = K1+-1 

530 IF SC(I,.))=2 THEN K2=K2tl 

548 NEXT J. I 

550 LOCATE 23,14:PR1NT USING "#((";K1 

560 LOCATE 23, 17:PRINT USING "##";K2 

570 RETURN 

580 REM ••••••• IN'rERKACE 

590 CR-3 

600 LOCATE CR*2tl,8:PRINT "Si." 

610 K=ST!CK<CS) 

620 S=STRIG(CS) 

630 IF S AND N0T(PS=1 AND CR=8) i'HKN 698 

648 VR=(K=3)*(CR<8)-(K=7)*(CR>8) 

658 IK VR=8 THEN 618 

668 IF STICK (CK) THEN 660 

670 LOCATE r.R*2-H.»:PRlWT " " 

688 CR=CHtVR:GO'IO 680 

690 RBM ■■■•■— DROP A PIECE 

700 \y CK=8 THEN PS=1;G0T0 800 



710 KL-0:YY=1 

720 IK SC(CR.0)<>8 THEN KL=1 :GOTO 808 

730 YY=YY+1 

748 LOCATE CR*2+ 1 . YY-2 : PRI NT "»*" 

758 LOCATE CR*2^-1 . YY- 1 : PR I NT CHS (CD 

768 IK YY MOD 2=1 THEN 738 

770 IK SC(CR. (YYfl)¥2)=8 AND (YY-1)¥2<7 

IHEN 738 

788 3C(CR, (YY-1)¥2)--Ci. 

798 GOSUB 828 

808 LOCAIh CR*2tl.e:PRINr " " 

818 HhrUKN 

828 REM ••••••• TURN OVER 

838 KOR I =0 10 7 

848 Cl=0:PX=i:R:PY={YY-llSf2 

850 CK = SC(PX. PY) 

868 t'X = PX+VX(l ) :PY = PY+VY(I) 

870 IK i'\<B OH PX>7 OH PY<0 OR PY>7 THEN 

958 
888 iF SC(PX,PY)=0 THEN 950 
890 IK SC(PX,PY)=OL THEN 910 
908 CT=CT 1-1: GOTO 860 
918 FOH J=0 TO CT 

928 SC(CR+VX(n*J. (YY-1)¥2+VY(1)*.I)-CL 
938 LOCATE (CRtVX(l}*.l)*2tl, ((YY-1)¥2 + Vy 

(l)*.l)*2 + l:PRiNT CH$(CL) 
948 NEXT J 
958 NEXT I : RETURN 
968 REM ••••••• FINISH 

978 iF K1>K2 THEN LOCATE 20.19:PRINT CHS 



(1) :"« i'i'. I" :GOT0 1080 

980 IP KKK2 THEN LOCATE 20.19:PRINT CH$ 

(2) ;"« Ji't.1 I" :GOT0 1880 

998 LOCATE 28. 19:PR1NT ■'[*?*»/;' 1 1 ! " 

1888 GOTO 1088 

1818 REM ■■■»■>» CHARACTER 

1828 READ C$,DS:IK CS = "END*' THEN RHTURN 

1830 FOR (=8 TO 7 : A=ASC (C$) *8t I 

1848 VPOKE A, VAI.("&H"tMID$(D$, l«2+l, 2) > 

1850 NEXT:GOT0 1828 

1068 DATA r.871F3K7F7FFFFFFK. -{, FFFFFF7F7 

F3E1F87 

1870 DATA '>,E0FaKCFEFEFFFEFB.I.FBKi-'FKF6C 

P,3CF8P,0 

1880 DATA ?,071F3F7F7FFFFFFF. t.KFFFFK7K7 

F3filF87 

1890 DATA 3,E8F8FCFEFeFFFBPB,-».FBFFFFF6C 

E3CF8E8 

1188 DATA ?.B4B4B7B0BF9F403F.f.B4B4B4B4B 

4B4B4B4 

1118 DATA 7.2D2DED8DKDF902FC,f,2D2U2D2O2 

D2D2D2D 

J128 DATA I-.8808FF88FFFF88FF. :,e8078787K 

K3K0F83 

1138 DATA 4.8883803888eC08C8,i.e8C0C8C0K 

HK8fi080 

1148 DATA END, 

1158 HEM ■■■■■■» VECTOR OATA 

1168 DATA 8.-1,1.-1.1.8.1.1.0,1.-1.1.-1. 

0, -l.-l 
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1190 

rzBB 

12\IS 
Vl'ZIS 
1230 

rzAe 
I Abe 

l2bB 

vzie 

128« 
1290 
i3»a 
131B 
1320 
1338 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
17y0 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 



DATA 3A. IK 
DATA VK, 11 
DATA 7K.0! 
DATA 38.03 
DATA 60.03 
DATA CD.5B 
DATA 23.36, 
DATA 32.31, 
DATA Ah'. 32. 
DATA 06,06, 
DATA 36. Dl. 
DATA CD, 35, 
DATA 7P..FF,. 
DATA 10. F6, 
DATA C7. 11. 
DATA 5C,00, 
DATA C7,01. 
DATA 47. 2A. 
DATA 28.01, 
DATA 16, C7. 
DAI A FD, f3. 
DATA E1.C9, 
DATA AF, 32. 
DATA C8,C3, 
DATA 3A,4C. 
DATA 21. e4. 
DATA DD.21, 
DATA D[),35. 
DATA 01. CD. 
DATA 7F,,FE. 
DA'IA Db, 10. 
DATA 23, 3E, 
DATA 3C. 32. 
DATA 34.21, 
DATA 38.03, 
DATA 11, 18, 
DATA 00, 3A. 
DATA FE.68. 
DATA CD,4D, 
DATA 90.00. 
DATA 2D. C7. 
DATA 3E.04. 
DATA 1 1 . 2C . 
DATA 00, AF. 
DATA 21.40. 
DATA 32. 39. 
DATA 78, C8, 
DATA 22.53, 
DATA C5.2i. 
DATA 05.00, 
DATA 53. C7. 
DATA 21.55. 
DATA C6. 21, 
DATA 2C.C6, 
DATA FD.21. 
DA'IA 77, IF. 
DATA 11. El. 
DATA 19, 10, 
DATA 32, 12, 
DATA 08. 20, 
DATA DB, 18, 
DATA 82. 1:5. 
DATA 02, 3E, 
DATA C6, 11, 
DATA D6, C-fo. 
DATA C6, 3A. 
DATA FE, BB. 
DATA 21. C7. 
DATA 20, 16. 
DATA 90.00, 
DATA FD,FB. 
DATA FE.E8, 
DATA 0F,32, 
DATA 21,91, 
DATA 30.00. 
DATA 0F. 23. 
DATA 21. 6E. 
DATA D0,FF. 
DATA C8, 22. 
DATA 19, 11, 
DATA 01, EB. 
DATA 27.22. 
DATA 42. C7, 
DATA 01, 11, 
DATA C2.C9. 
DATA CD.3A. 
DATA 28.08. 



C7.l)l) 
,38. 11 
.21. IE 
.3ii.KF 
22. 3E 
,C3.21 
. m. 3E 
,C7.3K 
b4.C7 
,21. ID 
19, 10 
,C6.21 
80.38 
,CD.42 
00. IB 
C9,21 
08. 00, 
16, C7 
04. A8, 
26,00 
CD.3A, 
3A,47, 
4C.C7, 
21, 2D, 
C7,B7, 
C6,CD, 
1D.C7. 
04. CD, 
4F.Cb. 
A8, C0, 
BE, D0. 

10. BE. 
4C,C7. 
13. C7. 
32. 0F. 
IB. 01. 
47. C7, 
C0,21. 
00. C9, 
CD, 28. 
32,31. 
CD.4D, 
19,01. 
32. 4D, 
03.22. 
C7,C9. 
CD. 35. 
C7. 11. 
55. C7, 
ED. B0. 

11. FB. 
C7, 11, 
5A,C7. 
06,07. 
08, D0, 
FD,7E, 
KK.UD, 
E9, 3e, 
D0, 3A, 
08, CD, 
0A.FE. 
32, 0D. 
08.32. 
IE, 00. 
3A,64. 
1E,C7. 
D8.2i. 
lA.CD. 
3E.64, 
F3.21. 
3E.3C. 
28. 18. 
64. C7. 
C6.22. 
18. 16. 
36, El, 
C6.22. 
2A.3E, 
3E.C7. 
30.75. 
22.40. 
4F.C7. 
CD. 49. 
42. C7, 
CD. 67. 
32. 7D. 
06. E8. 



.96,01 
.3H.01 
.C7.96 
. C9. AF 
. t:7.CD 
. 39. C7 
.Ca.32 
.01.32 
.32,63 
,C7, 11 
. FR, CD 
.00,00 
.02, 3b 
, C6.C9 
,01, 18 
, BD.C6 
, ED,B0 
,29,17 
.28.01 
. EB.C9 
. 32.FD 
. C7.FE 
.21.25 
. C7.CD 
. C8. CD 
. B1,C6 
.C5.DD. 
. 4E,C3. 
.CI. 10, 
. 23.3A. 
.C6.17. 
.3E.01, 
. C9.21, 
. 34. 7E. 
.C7.21. 
. 08. 00. 
, FE.78. 
00.20, 
CD,A8. 
C3,3E. 
C7,2i. 
00,21. 
09. 00. 
C7,32, 
3K,C7, 
3A.47, 
C6,21. 
E0,D0, 
11, 5A, 
21.21. 
D0.CD. 
0B.D0, 
11, 18. 
DD.21. 
DD,7e, 
00, KD. 
19. IB, 
05,32. 
3A.C7. 
82, C5, 
04.20. 
D0.KI, 
3A.C7, 
CD. 55, 
C7.B7, 
FE.40. 
m. lA. 
4A.00. 
32,64. 
55. C6, 
32,63. 
PE,F0, 
CD, 90. 
A0.FD. 
21,64, 
CD. 90. 
A0. FD, 
C7, 19, 
C9.2A. 
CD, 20. 
C7.EB. 
06.04, 
C2.26. 
06,05, 
C3.21, 
FE.03. 
FE.02, 



.38. 07.2D2 
, C9,0D.33D 
. FE,09.322 
.C9.21.3DA 
.28.C3,342 
.36.50.392 
. 2D. C7, 285 
.3B,C7, 29D 
,C7.C9.431 
.04.00. 126 
,4E.f:3.409 
,06.FF.3BE 
.05,23.294 
,21,1D.3E2 
.00, CO. 1D9 
. 11. lD,2f'7 
. C9. AF, 3E5 
. CB.5D.2B6 
.23.22, 143 
, DD.E5.479 
, E1.DD.5D6 
. 78. C8, 530 
. C7.CD.3CE 
. C8. C3. 4F8 
.A8.C6.507 
. 06. 30. 445 
. 35. 00. 3R9 
.21.00,315 
, ED, C9,46A 
. 1E.C7,426 
. BE.D8.4E7 
,28.01. 197 
, 12.C7.344 
. FE. 70. 34F 
.0E.C7.239 
. CD.5C. 176 
.28,0C.2P2 
, 3E.C1.366 
C6.CD,4HB 
C0.32.378 
04. 20. 263 
CD,C6,310 
CD, 5C, 189 
63,C7,351 
3E.50.219 
C7. FE.441 
IK. 00, 348 
CD,FD.4C7 
C7,01,335 
00, 22, 206 
FD,C5,585 
CD.2C.322 
D0.CD,3CE 
C7,D0.394 
00. DD. 4FE 
77,21.3A6 
1B.FD.41A 
0D,D0, 264 
F5, KE,442 
32. 12.288 
06,CD,2(i7 
3U.20,3A4 
CD,42,2aA 
C5,21,2FD 
Cr,B1.535 
38,08,363 
18.03.3BF 
FE,E0,3F7 
C7,CD,302 
22. A0, 381 
C7.Cy.497 
C0.3E,512 
00. F3. 3BC 
FB, 11,443 
C7,36, 1E0 
00,F3,399 
FB, 11.420 
7C,B5,448 
40,C7.3Ey 
00, 38, 1F4 
21, 10,331 
DD,21,267 
0C.2E.341 
CD, 70. 263 
04,00,3A7 
06. F0. 3AD 
28.02.248 



2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



06. E0 
78. C8 
22.53, 
C5,21, 
05,00. 
53. C7. 
21.55, 
C6,21, 
2C.C6, 
7C.65. 
4F.C6. 
00. 11, 
FF.CD. 
C7.EB. 
2A.53, 
06.07. 
EB.01. 
ED.5B, 
CI. 10, 
23, IB. 
11.00. 
00, C9, 
01,00, 
7C, B5. 
AF,5E, 



, 78. C9, 3A, 

, CD,35,C6. 

,C7. 11.07. 

,55,C7.11. 

.ED. 80,21, 

. 11, 14. D0. 

.C7. 11. E4. 
5A.C7, 11. 
CD.42.C6. 
20.07.21, 
C9, 11, 0A. 
F6.FF,28. 
55.C5.C9, 
01.05,00. 
C7,EB,B7, 
C5.D5.2A. 
05. 00, ED. 
53,C7.B7. 
E7.C9,06, 
10.FA.C9, 
D0,01.00. 
21.00,00. 
01,CD.5C, 
20.FB,C9. 
CD, 93, 00. 



47. C7, 
21. El, 
D0,CD, 
5A,C7. 
DF,FF, 
CD,FD, 
D0, CD. 
FF.D0, 
2A,40, 
00.05. 
00, CD. 
03, 11. 
D5,21. 
ED, B0, 
ED. 52. 
53. C7. 
B0,D1. 
ED. 52, 
05. 7E. 
21.00. 
01. CD, 
11.00. 
00. C9. 
21,64, 
3E.08. 



FE. 46D 

PP. 509 
PD,3EE 
01.335 
22, 3C3 
C5.49E 
2C,3FB 
CD,4B5 
C7,3F8 
CD.24B 
20. 2E6 
EC.32E 
55.4FA 
D1.426 
EB.510 
19,304 
EB.44A 
EB, 543 
12,31C 
lA, 24C 
59, 209 
lA, 1E5 
2B, 21F 
C7,461 
1E,2D1 



2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



0F.CD. 93. 
C0,36.00, 
C7,3E.08, 
23,AF,5E. 
12,77,PE, 
7E.D6,04. 
17.21,64. 
00,3C.5E. 
08.iE.0F. 
P3.21. 18. 
C9,AF.06. 
3C,23, 10. 
0F.A8.7C, 
08. A0, 78, 
45.20.4F, 
00.00.00, 
10.B4.00. 
00,00, IF. 
14.00,62. 
00.B8,0F, 
7B.00.7D, 
0F.0F.0F, 
28.01.43. 
END 



00,34 
CA. A8 
5E.1D 
CD, 93 
64, D0 
77. D0 
C7.AF. 
ID, CD. 
CD. 93, 
C7,22, 
0E,5E, 
F8.C9, 
04, 0D. 
24. 0F. 
56.45, 
00. 0F. 
04. 00. 
00. 10, 
00,63, 
0F.0F. 
00.80, 
00.00. 
44,2c, 



, 3E, 8C 
.C6.21 
.CD. 93 
.00,7E 
, 36,E0, 
, 36, 00. 
. 5F.CD, 
.93,00, 
,00,35. 
, A0,PD, 

CD, 93. 

A8,7C. 

A0. 78. 

47,41, 

52,00. 

00, 10, 

00,00. 

10. 10. 

00,64, 

00.00, 

00.00. 

00. 7F. 

06.01. 



,BE.32B 
, 64. 3B3 
.00.2E8 
, D6, 3E4 
, 2B.3PC 
. 18. 2ED 
,93,3D1 
, 3E.255 
. C0. 28A 
, FB.4AD 
. 00. 34A 
.00,354 
, 20. 27C 
. 4D. 228 
,00. lAl 
, 10.02F 
, 00, 0C8 
. 8C.0DB 
.00, 13D 
, 00. 0E5 
B8, 230 
78, 124 
B0, 193 



YUHI.BAS (MAIN PROG, ) 



10 

20 

30 

40 ' 

58 ■ =====-====^=============^== 

60 CI,EAR200, &HBFFF : SCREEM , 2:11 DTH32 : KEY 
OFF : C0L0R15. 9, 1 : CLS : DEF] NTA-Z : R=RND <-TlM 
E) 

70 A=8 : B = 39 :GOSUB290 : FOR I -40TO47 : VPOKEl . 
0:NEXT 

80 A=64:B-71 ;GOSUB290:FORI=128TO135: VPOK 
R I . 24 : NEXT 

90 FORA-ftH700TOftH780STEP64 : B=A+7 : G0SUB29 
0:NeXT 

100 A-&H2000 : B=A+2 :GOSUB290 : A=SH2006 : FOR 
l-ArOA+7:VH0KE) ,SH11 : NEXT : A=ftH201C : B^A+2 
:GOSUB290 

1 10 LOCATE0, ; PR 1 NT" aSDi STANCE :00000m*ST 
lME:000min£S" 

120 IOCATE0, 16:FOR!=0TO7:ReAD A$:PR1NT A 
S; :NEXT:VP0KEfiHlAFF,3 

130 F0R1=384T0391 : VPOKEl , VPEEK 1 1 +248) :Ne 
XT 

140 PORA-&H3800TO4H3860STEPftH20 : B=At&HP : 
GOSUB290:NeXT 

1 50 A=SH3880 : B-A+ 191: GOSUB290 : A-AH3960 : B 
-At31:GO3UB290 
160 PUTSPR1TE7. (68.67).6, 11 
170 BLOAD"YUHI.OBJ" 

180 DEFUSR=&HCa00 ; R= 1 NT (RND (1) *255) +1 : PO 
KE4HC716.R 
190 ■ 

200 REM P0KE&HC1C5.&H87 ' *REti!f ^Vf f/^y 
7yr 

210 PLAY"S0M3000O5L32CDECL4G" . "S0M3000O3 
L32RDCRL4G" : FOR 1 =0TO1500 : NEXT 
220 U=USR(0) 
230 ■ 

240 IF PEEK(ftHC74E)=0 THEN END 
250 L0CATE14. ia:PKINT"GOAL" :FOH I =ftH2011 
'!0 &H201P:VPOKE I . &HK1 : NEXT : L0CATE9, 20 : 
PRINT- 'al-S'-S-l.*/,?' -j- 

260 PLAY" S0M5000O5L20FFFAACFFFAACFFFAACL 
5F" . ■■ S0M5000O3L20AAAFFCAAAFFCAAAFFCL5O2F 

270 GOTO270 

280 ' - = =SLB=-= 

290 FOR I=ATOB:READ AS:VPOKE l.VALC&H"*- 

A$) :NEXT:RETURN 

300 ■-==PATTERN DATA=-= 

310 DATA 99,66.64.98.90.60.40,80, 99.66. 

26. 19,09,06.02.01 

320 DATA 99,66.66,99.99.66.66,99. 5A. BD. 

BD,7E.FF,7E, 18.66 

330 DATA FF.FF.C7,1''F.PF.E3.FF.FF, C0,40, 



60. 70. 78. 2E. 17, 0F 

340 DATA 18,00. 18, 3C, 24,24. 3C,3C. 00.00. 

38. 34,7A.7E.FF,FF 

350 ■ 

360 DATA 21.F6.FC,A1.71.E1 

370 ■ 

380 UA'I'A St**4*******»S££iSiivK**^X******* 

* 

* 

400 DATA *****«***;»iS££S£££££££********** 

♦ 

410 DAI'A *********B££££££aa£a£S*******»* 

♦ 

420 DATA *****»¥*fl£££SSSS»aaSaaSlA******* 

* 

430 DATA ******iiHissaaaasisassa»sa***Mi** 

* 

440 DATA ******H£sas!assaaaaa£aa££fi****** 

* 

450 DATA *****B£sss£a£aaaaassas££*£***** 

460 '---SPRITE DATA=== 

470 '-RUNNER- 

480 DATA 00.00.3C,3E, IC. 18.58,42,42,42,0 

3,00. 0C. 00.00, 30 

490 DATA 3C.3P,00.00.00,00,24,3C,3C,3C,3 

C.3C,30,30,30.00 

500 DATA 00.00,3C.3C. IS. 18, lA. 42. 42. 42. C 

0.00. 30. 00, 00,0c 

510 DATA 3C.3C,00.00.00.00,24.3C.3C.3C,3 

C.3C.0C.0C.0C.00 

520 ■ =CAR= 

530 DATA 00.00.0F,3F,70.60.C0,E0.FF.CF,8 

F,8F,FC.3F.00,00 

540 DATA 00.00.F0,FC.0E.06.03,07.FF,F3,F 

1,F1,3F,FC,00,00 

550 DATA 00.00.00,00.00.06.07.06.00,00,7 

0,70,00,40,60.60 

560 DATA 00,00.00.00.00.00.00,00.00.00.0 

E.0E.00.02,06,06 

570 "=B1KE- 

580 DATA 07,0F,0C.0C.07.00,00,3F,06,03.0 

3. 03. 0F, 03.03. 03 

590 DATA C0.E0.60,60,C0,00.00,F8,C0,80.8 

0,80. £0,80,80.80 

600 DATA 00,00,00.00.00. IF. 77. 40.00. 0C, 1 

8. 10, 30,00.00.00 

610 DATA 00. 00. 00. 00, 00. F0, DC. 04, 00. 60. 3 

0, 10, 18.00,00,00 

620 ■ =AMBLI.= 

630 DATA 03.03.03.00.00,00,00,00,00.00.0 

0.03.00,00,00.00 

640 DATA C0,C0,C0.00.00,00,00.00,00,00.8 

0,E0.80,00,00.00 

650 DATA 00.00.00.3F.7F.60,CC.CE.CC,FF.F 
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SHORT PROGRAM 




REVERSES 



►fflf^73S(illl^-S;i 



GF uyi'-((Dmm^v^rzisb(Dy 

GC(14.9.1) -r-AX^-SOBffSrOiJS 
JK'S>-yT-'9 

GR(i4.9,i) yu^^omm/Ks-yT'-s 
zczs m^. 

PG(14.9) m^(DJK:i'^lb(D\^^(DE.mm 

Rs noox^^-jy^ 

(Ditim 

K,s,R ^-Atiom^m 



?Ti 



100-120 wm^'m 

130-190 lll^g©U'KJL'^A:^-r§ 

200-390 mmT-^oi'Fm 

490-630 4^-A;'DOS0!Ji 

640-690 BO^^^S^TS^lz-^V 

700-750 e(.^':?^^;i*-r§;i/-5^> 

760-950 ':'^-CHSnfcSB5J-©/V°^JU^ 

960-990 t^Z(DJK^^}V^mUTzti-^<^^ 

1000-109D xT-'j<puy-o)'t^(Dmm 

1100-1130 ^m-yuT-ot^o^mm 

1140-1390 ®A^->(7)f^-^ 




F.FC,FF,FF,6^,6e 

66a DATA MB. ge.ie.FC.eE. Be. 03. B3.B3.FF. 7 

F,1F,7F,FF.06,»6 

67B ■=SUN= 

68a DATA e3,eF, 1F.3F.7F.7F.FF.FF,FF.FF,7 

F.7F.3F. IF.aF.aS 

69a DATA Ca.Ffl,F8.FC.FE,FE.FF.FF,FF,FF,F 

E, FE.FC.FS.Fa.Ca 



100 
110 
120 
130 
140 

i^a 
16a 

170 

18B 

190 

2B0 

210 

220 

2'iB 

240 

258 

260 

270 

280 

290 

30a 

310 

320 

330 

340 

350 

36a 

37a 

38a 

22) , 

390 

400 

418 

42a 

438 

440 

450 

T$(" 

468 

478 

488 

498 

508 

5ia 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

658 

660 

678 

688 

690 

780 

710 

720 

730 

740 

750 

760 

778 

F 

788 

798 

880 

818 

828 

830 

22). 

840 



DKKIM' A-Y: SCREEN 5 : SET PAGF, 8,8 

DK^'DBI. Z:CO[.()R 15,1.1:CI,S 

DIM GC (14.9, D.GR (14.9. U.PG (14, 9J 

SCRRKN 8:PRINT"RF,VERSR 3":PHINT 

PRINT "0) SUPER LEVEL" 

PRINT "D HIGH LRVEl" 

PRINT "2) NORMAL LFiVEL" 

PRINT "3) EASY l.RVEi." : PRI NT 

INPUT "l,EVRL(0-3)" ;LV 

IF LV<0 OR LV>3 THEN 138 

SCREEN 5:0PEN "GRP:" AS #1 

7S-0:SN^a 

REM ••••••• GRAPHICS 

CI.S: IF GF THEN 338 

SN=SNfl:IF SN=6 PHEN 1188 

FOR 1-0 TO 9: READ D$ 

FOR .1 = 1 TO 15 

GC(,I-1, l.0)=VAI. {■■&H"+MID$(I)$..I, D) 

NEXT .1 , I 

FOR 1=0 TO 9: READ D$ 

POH J=i TO 15 

GC(.I-1. I. 1)=VAL("(IH"+MII)$(D$..I. 1>) 

NEXT J. I :RRAD ST 

FOR K=0 TO 1:F0R J -0 TO 14 

FOR 1=8 TO 9:GR(J. I,K)^GC(J, I.K) 

NEXT I. .I.K:RS=ST 

FOR 1=8 TO 9: FOR J=a TO 14 

PG(.i, I) =8 

I.INE{J*15+ia. l*15+ia)-(J*15+22. 1*15+ 

GR(.I, I. PC (J. I)>.BF 

NEXT J. I 

IF I.V=1 THEN RS=RSt5 

IF LV=2 THEN RS=RStl0 

IF i.V = 3 IHEN RS = RStl5 

PRESET (10. 170) :PRINT#1."STEP:" 

IF GF THEN /S = 7,C ELSE ZC-ZS 

PRESKT(18. 185) :PRI NT)tl. "SCORe:" :HIGH 

■■f-STR$(ZS).9) 
FOR 1=1 TO RS 

I.INE(l*7)-48. 170)-(l«7t53.178). 12, BF 
NEXT 

Xl=a:Yl=a:X2=15:Y2=10:GF-0:GOSUB648 

K=ST!CK(0)+STICK(1) 

S=STRIG(0)+STRIG(1) 

R= ( 1 NKEY$=CHH$ (13) ) +STR1 G (3) 

IF R THEN GDSUB 760:GOTO 960 

IF K-0 THEN 518 El.SH GOSUB 788 

IF S THEN 688 

X1-XH-(K=3J*(X1<X2-1)-(K=7)*(X1>0) 

Y1=YH-(K=5)«(Y1<Y2-1)-(K = 1)*{Y1>0> 

GOTO 620 

X2=X2t(K=3)*(X2<15)-{K=7)*(X2>Xl+i) 

Y2 = Y2+(K=5)*(Y2<18)-(K=1)*(Y2>YH-1) 

GOSUB 648 

GOTO 510 

REM ••••••• LINE DRAW 

LINE(Xl*15 + 8.8)- (Xl»15t9. 160), 

LINE(X2+15+8.8)-(X2*15+9.168) 

l,INE(0,Yi*15+a)-(255,Yl*15t9), 

(.INK (a, Y2*i5+8)- (255, Y2*15f9) 

HEIURN 

RKM ••••••• L I NE ERASE 

LINE (Xl*15+8.a)-(Xl*l5+9. 168) 
LINE (X2*15+8.0)-{X2*15+9. 168) 
(8. Yl*)5^8)-(255.Yl*15+9) 
(a, Y2*15+8)- (255, V2*15t9) 



15. RF 
15, Bf 
15. BF 
15, BF 



l.BK 
1,BF 
1. BF 
l.BF 



LINE 

LINE 

RETURN 

REM —mm* REVERSE 

LINK (HS»7+48, 17e)-(RS*7t53. 178) . 6, B 



RS=RS-1 

CK=GR(X1.Y1.1-PG(X1.Y1)) ; FL=8 

FOR I=Y1 TO Y2-1 

FOR .I=X1 TO X2-1 

PG(.I. J) =1-PG(J. I) 

LINK(J*I5+ia. l*15+18)-(J*15f-22. 1*15 + 

GR(J. 1 . PG(J. i) ) . BF 

IK GR(J. I.HG(.I, l))<>CK THEN FL= 1 



858 NEXT J. I 

868 IF FL OH CK=1 THEN RETURN 

878 CT=1 

880 FOR I=Y1 TO Y2-i 

898 FOR J=Xi 10 X2-1 

980 GR(J. I.0)=1;UK(J. I. 1)=1 

918 ZS=ZS(-CT:CT=Cr + l 

92B LiNE(J*15+ia, 1*15 + 10)- (J*15 + 2:^, 1*15+ 

22).GR(J. l,PG<J. l)).BK 

930 NEXT J . I 

948 PRESET158. 185) :PR1NT#1. RIGHTS (" 

"+SrR$(ZS) ,9) 
958 RETURN 
968 REM ••••••• CLEAR ?V7 

978 FL=8:F0R 1=8 TO 9:F0R J-0 TO 14 

980 IK GR(J. 1,8)01 THEN FL=l : I =9: J = 14 

998 IF GR(J. 1. DOl THEN FL = 1 : I =9 : J = 14 

1000 NEXI J. I: IF FL THEN 1840 

1010 PRESEI(58.78) 

1020 PR I Nljf 1 , ■■ CUNGKAIULA I I ONS 1 " 

1838 GOTO 1088 

1040 IF RS IHEN 510 

1058 PRESET (50. 78) 

1060 PRINi'#l,"MISS OPEKATIONI' 

1070 GK=1 

1080 K=SlRIG(0)+SrKlG(l) 

1098 IF K THEN 2ii8 ELSE 1080 

1188 REM ••••••• ALL CLEAU1 

1118 FHESET(30.88} :PRIN'r#l,"ALL STAGES W 

ERE CLEARED I" 

1128 PRESET (218. 188) iPRINTJ 1. "Fin. " 

1130 GOTO 1138 

1148 REM ••••••• DATA 

1150 DATA AAAAAAAA5555555.AAAAAAAA555555 

5. 222222555555555. 222222555555555 

1160 DATA 222222555555555. AAAAAAAA222222 

2. AAAAAAAA2222222. AAAAAAAA2222222 

1170 DATA AAAAAAAA2222222. 22222222222222 

2. 222222228888888. 222222228888888 

1180 DATA 555555888S88S88. 55555588888888 

8. 555555888888888, 222222225555555 

1190 DATA 222222225555555.22222222555555 

5. 222222225555555. 555555555555555. 7 

1200 DATA BBtJBBBB8686EEEb.BBBBBBB68b8EEE 

E. BBBBBBB8686EE2E, BBBBBBB6868EE2E 

1210 DAIA BBBBB868686EE2E,a6868686868EE2 

E , 68686868686EEEE , EEEEEEEEEEKEEEE 

1228 DATA ECEECEECEECEECE,'i;CCCCCCCCCCCt;c 

C. 2323232BBBB5555, 3232323BBBB5555 

1238 DATA 2323232BBBB5555, 3232323BBBB555 

5. 23232BBBBBB5555, BBBBBBBBBBB5555 

1240 DATA BBBBBBBBBBB5555, 55555555535555 

5, 555555555555555. 555555555555555, 6 

1250 DATA llllUllllUlll, llUAAAAAAAlll 

1, 118888818888811, 118888818888811 

1260 DATA 118888811111111, llUAAAAAAAlll 

I. 111111118888811, 118888118888811 

1270 DATA 118888118888811, UllAAAAAAAlU 

l.lllllillUlllU, 111155555551111 

1280 DATA 112222222222211.11222222222221 

1. 112222222222211.111155555551111 

1298 DATA 111155555551111,11222221222221 

1, 112222212222211. 11 1155555551 111. 6 

1388 DATA 333333CCCCCCCCC, 3333333333CCCC 

C. 333333555555555, AAAAAAAAA555555 

1318 DATA AAAAAAAAA555555,AAAAAA55555555 

5, AAAAAA555555555, 3333333333FFFFF 

1328 DATA 33333333FFFKFFF. AAA3333FFKFFFF 

F. AAAAA8S88888888. AAAAAA888888888 

1338 DATA AAAAAF222222222,FFFFKKFFK22222 

2. FFFFFFPFF222222. FFFFF8888888888 

1348 DATA FFFFF8888888888, 22222222224444 

4, 222222222244444, 222222222244444, 18 

1358 DATA 888888888AAAAAA,888888888AAAAA 

A, 888888855555555, 888888855555555 

1368 DATA 222222222255555,22222225555555 

5. AA888888888S555. AA8888888888S88 

1370 DATA AAAAAAA888S8888.AAAAAAA8888888 

8. FKFFFFFPF222288, FFFFFFFFF222288 

1380 DATA AAAAAAA88522288.AAAAAAA8852228 

8. 555555555522222. 555555552222222 

1398 DATA AAAAAAAAAAA8888, AAAAAAAAAAA88S 

8, AAAAAAAAAAA8888, AAAAAAAAAAA8888, 18 
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B^(Di]mtmi 



-irtmmLx<tz$\.\ 
[aostjtieALT</f^i,\ 



D^l". 



•/ <:^ V - 7 :> FS-A1 ^5000R, 
V-— T^V ^^ K^'f7'HDB20W?r 

Mis{i\)mT-Mmmmtt^^x\ 

X617 ^^!5J?tlS]BTfTmE*BT±* 

5-76 |§K^n^ 

%-X(r>%. □V>v7'. .^^|SS|(7) 

^^sA^rt^ K 7 =i'> ^ X X h n , 

■yv?r:i:S5-a-^-y-T17JRT-. ^ 

mttmitt'^x\ 

X669-13 ,ejtm=EmSt»^i 
.2-1-8 >ftlie] S 

• R-TYPE^2000Pi ;^-y\-U'f 
K 7 ^ (fftHJ*4- L) ^ 1500RT-„ 

X465 ^^Mm^^Ett^ffllSOl 

• MSX2. ROM0c7)H^S-.t:^# 

=r373 S$,fimAfflm^ffl-&1 62-25 



i.fzlt. ~<r)-^-\^:^^nf£r>x 



• R-TYPE. ;liS^:^> h U-^ 2 . 
V— if::^. MSX2)Kx;b4^'--y-'c7)i^ 

X933 Saji^.^l^rfi^JllfflT348 
llfflTUi 

• V--24K-y ^ill?=+^-v;^7° 
U>:S'HBP-n?r2 73RT; a|S(J 

=r341 ifSR3gpmF^il!&l-61-4 

• V--HB-75(^. -ft«R"p#S) 
^9800RT-o 'AmtmB\tii^^X\ 
=r272 i^m»rfTJIim;I?nEB2-28-7 



•■9->a-MSX2+. PHC-70FDt 
/\°-^ V - -y ^C7)7°U >:? FS-PWl 5- 
7:^RT.iI,^(je^(j7:)<#c7)AT, 

;?ti78-2^iiiS l&xii;^ 
•^'^7^V'7:^2, /n^dt-VO:^ 

□ :^^-&ioooRT'„ -r^Ti^-4syc 



7D 

■r 
n 



'%'"--t%V-lmiV:.t^Z- @5?Dip ©Mu^T ®3t^ufr 


• |'P!7.i^:-|B:;^|^,'7 -iria! i . 


IHSX|-\A/Hit|e(]t7hlh-I9i-/I*''' 

riOi,o|ooiR|z"i^l';|^|cr[c iJiS&i 




T'107-24J I \ . . V \ \ Ili 


1 


imMiP^^iis fi^idi 16-111 i-ii 1 




i^idAiTsM i i 1 nn"^ 


y 



• ia«*«ffl75issasfflssBa*'*ttT. ffiaSKS 



107-24 




xu-x7mffaitf;u 



=r98i-43 w^mmt^'mm^ 
•y^Hf-iH^yj >^ M-i 024 1 

P/X(^-7'JHt#)^37jRX. iS 

=r426 0S]l||^rfTS^l3-1 1-21 

• a^ = £7)i^4m?:2000R. ;^5? 
'<:)-> hL—;i^1200RX'o il,l!§ 

=rl97 llM|[|5?i*rmi±2220 

•=^ML-TS2(^T-"A.iHfV7 h. 
m 2 7Kip-;S^R0Mrt/t) ^ 2 T^R. 

v--PRN-C4l(?]7-ya-y:?) 

^ 1 7?Rx. :^isiia^(i?:)^'gtX'o 

X004 +L1frtT/¥SiJIZi^!?IJ+5^1-7, 
14-30. 316 tiffins 
%V-—h 7-7°iJ >5' HBP-FIC 
(M. lftaj#1ta)^3:^500RX, 

&^(i^^#xais^ ! 

x20i ■^■mm,T^^ri'cA-^2'^ 

?'p*H20i ±^$m^ 

•ft :g(7)s?M • ^gfis. =mik. 

•> > 1^'^ :^ X-f'KT MSX2. ROM) 



^ s t i^x 1 ::^5oooRXo iliis 

'^mtt^nx. 

=r559 :J^P^mtt:$:>i[Elff:itft3-8- 

25-301 t^r#?5* 
•-y->3-(;)MSX2+. PHC-70FD 
(^. iiiB^#. #«rS,-(t?)5:2 73 
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